import Text.ParserCombinators.Parsec

main = putStrLn "unk cnk mnk"

ho'ge :: Int
ho'ge = 1

foo :: (Int -> (,) Int) Int -> Int
foo = fst