ulist:= function(n)
  local s,i,o;
  o:= One(Integers mod n);
  s:= n-> Filtered([1..n-1], i -> Gcd(i,n) = 1);
  return s(n)*o;
 end;