fib :: Int -> Int; fib n = if n < 1 then 1 else (fib (n - 1)) + (fib (n - 2)); main = print(fib 36) -- > 39088169 -- Takes 4.58 seconds on 2.4 GHz Intel -- 118 ns per iteration.