#!/usr/bin/env runhaskell
#!/usr/bin/runhugs
main = mapM_ (putStrLn . show) (take 100 fibonaccis)

fibonaccis = 0:1:zipWith (+) fibonaccis (tail fibonaccis)