main = do
  listenSock <- startListenSock
  forever $ do    
    (sock, _) <- accept listenSock
    forkIO $ worker sock
main = do
  listenSock <- startListenSock
  forever $ do    
    (sock, _) <- accept listenSock
    forkIO $ worker sock
main = do
  listenSock <- startListenSock
  forever $ do    
    (sock, _) <- accept listenSock
    forkIO $ worker sock