初Lwtでecho server

書いた。
https://gist.github.com/1362149

これ↓を参考に
https://github.com/avsm/ocaml-cohttpserver/blob/master/server/http_tcp_server.ml
適当に書き始めたのだけど、途中で「やばい徹底的にmonadicに書かないと動かないというかコンパイル通らない」と気がつき方向転換して何とか動いたのでした.

Lwt.pickがいいなぁとおもいました。