fibonacci.hs

fib :: Int -> [Integer]
fib 0 = error "arg >= 1"
fib 1 = [1]
fib 2 = fib 1 ++ [1]
fib n = xs ++ [x + y]
  where xs = fib (n - 1)
        (x:y:_) = reverse xs