([rec'x'(case(read)['o(print x)x]['i(+ x 1)]['d(max(- x 1)0)]['s(*(if(= x 16)0 x)x)]['h(exit)])]0)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page