看到过简单的服务器, 或者说持续处理请求的方式吧, 像这样

 haskell


 import Control.Monad  
import Data.Char  

main = forever $ do  
    putStr "Give me some input: "  
    l <- getLine  
    putStrLn $ map toUpper l

代码来源: http://learnyouahaskell.com/input-and-output

但是如果要同时处理请求的话, Haskell 内部是怎样实现的呢?
Node 代码执行是不会等待回调函数的, 可是 Haskell 模型不一样, 怎么做的?