import Control.Concurrent

main :: IO ()
main = do
  putStrLn "Hello"
  threadDelay $ 6 * 100000
  putStrLn "It's me"