Foo.hs

module Data.Foo where

foo :: Int
foo = undefined

fibonacci :: Int -> Integer
fibonacci n = fib 1 0 1
  where
    fib m x y
        | n == m = y
        | otherwise = fib (m + 1) y (x + y)