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