SetLogFile("sgtest.log":Overwrite := true);
s := 0; 
ps :=0;
 for g := 1 to 1000 do
    n := NumberOfSmallGroups(g);
    m :=0; 
       for j := 1 to n do
       G := SmallGroup(g,j); 
       if #G ne g then print "error, g = ", g, "j = ",j;  end if;
       if Type(G) eq GrpPerm then m := m+1; end if;
       end for; 
    s := s+n; 
    ps := ps + m;
      printf "%5o %6o %2o \n",g,n,m;
    end for;
print s; ps;
UnsetLogFile();