Haskell Program to print Fibonacci series

Program

module Main where
import Text.Printf
fibs :: [Int]
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
line n = printf "%d\t" $ fibs !! n
main = do
 sequence_ $ map line [0..8]
 putStrLn ""

Output

$ ghc fibonacci.hs 
[1 of 1] Compiling Main             ( fibonacci.hs, fibonacci.o )
Linking fibonacci ...
$ ./fibonacci 
0	1	1	2	3	5	8	13	21