\l t \l p \l c \l e \l d \l h \l b line:{:["\\"~*y;@[x;0;,;,esc y];mode[*x;x 1]Parse Tokens y]} esc:{:["\\\\"~2#x;comb 2_ x;. 1_ x]} mode:{:[#z 1;exp[x;y]z;def[x;y]z 2]} exp:{(x,,Eval Compile global[y]. z;y)} global:{[y;a;b;c](a;b;@[@[c;_n;_f[y].];i;:;y i:(!y)_dvl!c])} def:{(x;@[y;!z;:;z[]])} prog:{(1_,/" ",')'(&~" "=x[;0])_ x} dec:{:[#x:(x?,"\\")#x;x@:&~"/"=x[;0];x]} read:{prog dec@0::[".slack"~-6#x;x;x,".slack"]} script:*(();)line/,/read' cpt:Compile Parse Tokens@ run:Eval cpt@ comb:Eval Comb@ show:`0:Disp cpt@ text:`0:Text cpt@ html:Html cpt@ code:Code cpt@ int:{ `0:,"\\ exits, ) executes" S::"" .m.p:,"(" .m.r:{:[x~,"\\";:*.m[`r`p]:_n;{:[")"=*|S;do[1;\run -1_ S;S::"";.m.p:,"("];.m.p:," "]}S,:" ",x];} } if[#_i;:script _i]