main :: IO ()
main = Control.when True $ putStrLn "hello"