OBrowser; яваскриптовая VM для OCaml O_o

Ня ^_^

http://haskell.org/haskellwiki/Yhc/Javascript

Только вот это, imho, будет поинтереснее - http://www.cs.york.ac.uk/fp/reduceron/

"Я не знаю, кому, и зачем это нужно" (c), но это круто. Просто как произведение исскуства.

Забавно, у этого OBrowser половину яваскриптового рантайма (98 кб из 193)
занимает какой-то растровый фонт:

var ff = false, tt = true ;
var graphics_font = {
    height: 14,
    mapped: [
        [[ff,ff,ff,ff,ff,ff,ff,ff],[ff,ff,ff,ff,ff,ff,ff,ff],[ff,ff,ff,ff,ff,ff,ff,ff],
[ff,ff,ff,tt,tt,ff,ff,ff],
         [ff,ff,tt,ff,ff,tt,ff,ff],[ff,ff,tt,ff,ff,ff,ff,ff],[ff,ff,tt,ff,ff,ff,ff,ff],[
ff,tt,tt,tt,tt,ff,ff,ff],
         [ff,ff,tt,ff,ff,ff,ff,ff],[ff,ff,tt,ff,ff,ff,ff,ff],[ff,tt,tt,tt,tt,ff,ff,ff],[
ff,ff,tt,ff,ff,tt,ff,ff],
         [ff,ff,ff,ff,ff,ff,ff,ff],[ff,ff,ff,ff,ff,ff,ff,ff]],
<...98 килобайт поскипано...>
        [[tt,ff,tt,ff,ff,ff,tt,tt],[ff,ff,ff,ff,ff,ff,ff,ff],[tt,tt,tt,tt,tt,tt,tt,tt],
[tt,tt,tt,tt,tt,tt,tt,tt],
         [tt,ff,ff,tt,ff,ff,tt,tt],[ff,ff,tt,ff,ff,ff,ff,tt],[tt,ff,tt,tt,tt,tt,ff,ff],[
ff,ff,tt,ff,ff,tt,ff,tt],
         [tt,tt,tt,tt,tt,tt,tt,tt],[tt,tt,tt,tt,tt,tt,tt,tt],[tt,ff,ff,tt,ff,ff,ff,ff],[
ff,ff,tt,ff,ff,ff,ff,tt],
         [tt,tt,ff,ff,ff,ff,ff,ff],[ff,ff,tt,ff,ff,tt,ff,tt]]
    ]
}

Работает, кстати, довольно быстро.