fizzbuzz with Haskell

fizzbuzz.hs

fizzbuzz :: Integer -> [String]
fizzbuzz x = reverse $ impl x
  where 
    impl :: Integer -> [String]
    impl 0 = []
    impl n
      | n `mod` 15 == 0 = "fizzbuzz" : next
      | n `mod` 3 == 0 = "fizz" : next
      | n `mod` 5 == 0 = "buzz" : next
      | otherwise = show n : next
      where next = impl $ n - 1