main :: IO () main = do putStrLn "OK"