```
getMessages :: Handle -> IO ()
getMessages handle = do
  msg <- hGetLine handle
  putStrLn $ "Got Message: " ++ msg
  getMessages handle
```