[project @ 1997-03-14 05:31:07 by sof]

[ghc-hetmet.git] / ghc / CONTRIB / pphs / docs / Haskell_leftindent1.tex

\begin{verbatim}
gcd       :: Int -> Int -> Int
gcd x y    = gcd' (abs x) (abs y)
             where gcd' x 0 = x
                   gcd' x y = gcd' y (x `rem` y)
\end{verbatim}