#<- http server

(@ +-
    (# msg-in (@ msg +-
                  (reply-to msg msg.layer-id)
    )
)

(@ reply-to msg HTTP_GET +-
    (# check-user request 
     # process request -
         (# http-request msg .request)
    )
)

(@ reply-to msg HTTP_POST +-
    ...
)

(@ reply-to msg .)