load "lowgengroups2dat.mgm";

NumberOfLowGenGroups:= function(g);
   inds := [x[2] : x in LowGenGroupIndices | x[1] eq g];  
   return #inds;
   end function;

LowGenGroup:= function(g,n);
   inds := [x[2] : x in LowGenGroupIndices | x[1] eq g];  
   if (#inds eq 0) or (#inds lt n) then return "no group"; end if;
   k := inds[n];
   return SmallGroup(g,k);
   end function;

LowGenGroupIndex:= function(g,n);
   inds := [x[2] : x in LowGenGroupIndices | x[1] eq g];  
   if (#inds eq 0) or (#inds lt n) then return "no group"; end if;
   k := inds[n];
   return k;
   end function;