import qualified Control.Monad as Control
main :: IO ()
main = Control.when True $ putStrLn "hello"