```
sendMessages :: Handle -> Int -> IO ()
sendMessages handle 0 = do
  hClose handle
sendMessages handle x = do
  hPutStr handle $ (show x) ++ "\n"
  sendMessages handle (x - 1)
```