orderFrequency:= function(g)
local h,w;
w:= [];
w:= h -> Collected(List(Elements(h), Order));
Print("[Order of element, Number of that order]=");
return w(g);
end;