fib 0 = 1
fib 1 = 1
fib n = fib (n-1) + fib (n-2)

main =
    let
        f1000 = fib 1000
        hi = putStrLn("hello")
    in
        putStrLn(show(fib 10))