-- yukicoder My Practice -- author: Leonardone @ NEETSDKASU main = ((=<<) ((.) ((.) ((.) putStrLn ((!!) ((:) "YOKO" (return "TATE")))) (\xs -> (div ((!!) xs 0) ((!!) xs 1)))) ((.) (map read) words)) getLine)