ghc/CONTRIB/pphs/docs/leftindent1.hs

   1 gcd       :: Int -> Int -> Int
   2 gcd x y    = gcd' (abs x) (abs y)
   3              where gcd' x 0 = x
   4                    gcd' x y = gcd' y (x `rem` y)