fib :: Int -> Int
fib n
    | n == 0 = 0
    | n == 1 = 1
    | otherwise = a + b where
        a = fib n-1
        b = fib n-2