HTTP-сервер

[xoposhiy]

Многие знают, что на моих практических занятиях по ООП студенты пишут интерпретатор функционального языка fun, чем-то похожего на scheme.

Вот как на языке fun выглядит эхо-http-сервер :)

let handler := fun(r) fun(w) do! (writeHeaders w) (w r);
let writeHeaders := fun(w) w "HTTP/1.1 200 OK\r\n\r\n";
listen! 80 handler;

Собственно одна из задач - добавить в fun функцию listen! По-моему, прикольно! :)