main = do
  handle <- connectSocket "localhost" 8080
  let name = "rapala" :: String
  send handle "join" name
  handleMessages handle
main = do
  handle <- connectSocket "localhost" 8080
  let name = "rapala" :: String
  send handle "join" name
  handleMessages handle
main = do
  handle <- connectSocket "localhost" 8080
  let name = "rapala" :: String
  send handle "join" name
  handleMessages handle