Freshman Haskell programmer

fac n = if n == 0 
           then 1
           else n * fac (n-1)

The Evolution of a Haskell Programmer