急にhttpdが書きたくなった．結局，Eventモジュールと格闘しながら4時間ほど費やして，httpdまで辿り着かず．大体わかった気がする．Event.selectとかEvent.wrapが理解できなかったのですが， try while true do ... let x = Event.select [Event.receive ch…