f a b|a*5/18>b="KoD"|a*5/18getLine putStrLn$f a b