Recursive warning

Warning.hs

-- released under CC0 by favonia

import System.Environment

quotes :: [String -> String]
quotes = map q $ cycle [("「", "」"), ("『", "』")]
  where q (l,r) str = l ++ str ++ r

warn :: (String -> String) -> String -> String
warn q str = concat ["分享", q str, "難判定有無違法，盡量不要分享", q str, "，以免觸法。"]

seed :: String
seed = "不能宣傳 2/14 罷免蔡正元"

gen :: Int -> String
gen n = foldr warn seed (take n quotes)

main = do
  [n] <- getArgs
  putStrLn $ gen (read n)