Inver := function(m, e)
local x,y,k;
k:=MagmaElement(m,e);
for  x in Elements(m) do
for y in Elements(m) do 
if x*y=k and y*x = k then Print("The inverse to ", x, " is ", y, " since ", x, " * ", y, " = ", y, " * ", x, " = ", k,"\n");fi;
od;
od;
end;