load "Graph.mgm";
load "Gstar.mgm";
load "Group.mgm";
load "GroupS.mgm";


PSL2q := procedure(lower,upper)
   
   Q := SortFindqle(upper);
	
   Q;

   for q in Q do
	q;
	if q gt lower then
	    t := Cputime();
	    Graph(PSL(2,q),2,3,7);
	    Cputime(t);
	

	    t := Cputime();
	    StarGroup(Gstar(q));
	    Cputime(t);


	    t := Cputime();
	    StarGroupS(Gstar(q));
	    Cputime(t);
        end if;
   end for;

end procedure;