oneline fibs

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

fibsToString :: Int -> [Int] -> String
fibsToString n = unwords . map show . take n

main :: IO ()
main = putStrLn $ fibsToString 20 fibs