sudden.hs

import Data.Char
import System.Environment

myLength :: String -> Int
myLength [] = 0
myLength (x:xs) = if isAscii x then 1 else 2 + myLength xs

main = do
    args <- getArgs
    let shi = if null args then "死" else args !! 0
        len = myLength shi
        halflen = (len + 1) `div` 2
    putStrLn $ "＿人人人人人" ++ (replicate halflen '人') ++ "＿"
    putStrLn $ "＞　突然の" ++ shi ++ (if odd len then " " else "") ++ "　＜" 
    putStrLn $ "￣Y^Y^Y^Y^Y" ++ (concat $ replicate halflen "^Y") ++ "￣"