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

Compare := procedure(G,l,m,n)


	
	t := Cputime();
	data := Graph(G,l,m,n);
	graph := Cputime(t);
	<graph, data[1], data[2], data[3]>;

	t := Cputime();
	data := Group(G,l,m,n);
	group := Cputime(t);
	<group, data[1], data[2], data[3]>;	

	t := Cputime();
	data := GroupS(G,l,m,n);
	groupS := Cputime(t);
	<groupS, data[1], data[2], data[3]>;	

	end procedure;