main = getChar >>= putStrLn . f f c | c == '0' = "Nothing" | c == '3' = "pi" | c == '1' = unlines ["九蓮宝燈", "Thirteen Orphans"] | c == 'A' = unlines ["3", "4", "4", "3", "6", "2", "2"] | otherwise = "さmpぇ"