FishBuush is a monoid under the "shouting something" operator with a unit value of "no fishes".

FishBush.hs

import Control.Arrow
import Control.Monad

nToFishBuush :: (Show a, Integral a) => a -> String
nToFishBuush n = case ((`rem` 3)  &&& (`rem` 5)) n of
                (0, 0) -> "FISSSSSHBUSSSHH!"
                (0, _) -> "fissshhhhhh"
                (_, 0) -> "bUUUUUsh"
                _      -> show n

doFishBuushUpto :: (Show a, Integral a) => a -> IO ()
doFishBuushUpto = mapM_ (print . nToFishBuush) . (enumFromTo 1)