ズンドコキヨシ with Haskell

なんで流行ってるのかよくわからんし文系情弱力を発揮して完全に乗り遅れてる気がするものの

zun.hs

import System.Random

zun n (x:xs)
  | not x     = putStr "ズン" >> zun (n+1) xs
  | n < 4     = putStr "ドコ" >> zun 0 xs
  | otherwise = putStr "ドコ" >> putStrLn "キ・ヨ・シ！"

main = zun 0 . randoms =<< getStdGen

でいいのでは？　いいんだよね？