FizzBuzz in Haskell

fizzbuzz.hs

fizzbuzz :: Int -> String
fizzbuzz x | mod x 15 == 0 = "fizzbuzz"
           | mod x 5  == 0 = "fizz"
           | mod x 3  == 0 = "buzz"
           | otherwise     = show x

printAll [] = return ()
printAll (x:xs) = putStrLn x >> printAll xs

main = do
  print "Number of lines:"
  numStr <- getLine
  let num = read numStr :: Int
  printAll $ map fizzbuzz [0..num]