gcd = proc(n,d:int) returns (int)
   % a legnagyobb kozos oszto meghatarozasa ismetelt kivonasokkal
   while n~=d do
     if n>d then n:=n-d else d:=d-n end
   end 
   return (n)
end gcd