e coral2/coral2x
f/'cora/i/{/r0i/}/
(f/'comment'/i/{/(r0lv.;.\ri/}/mi.{.)*i/}/)*
m-0(f/"?"/s/"255"/)*
m-0(f/'integer' 'procedure'/s/%INTEGERFN/)*
m-0(f/'procedure'/s/%ROUTINE/)*
m-0(f/'value' 'integer'/s/%INTEGER/v. ,.ri.A.,v.).i. b.,)*
m-0(f/'integer' 'array'/s/%INTEGERARRAYname /v. ,.ri.c.,v.).i. d.,)*
m-0(f/'location' 'integer'/s/%integername /v. ,.ri.c.,v.).i. d.,)*
m-0(f/'define'/s/%owninteger /f/"/s/= /f/"/e)*
m-0(f/'then'/s/%THEN /m1f1/'begin'/s//m-r0i/%START; /,m)*
m-0(f/'answer'/s/%RESULT =/)*
m-0(f/'if'/s/%IF /)*
m-0(f/'else'/s/%else /r\m(v. .r)*v.'begin'.km-r0i/%start;/,)*
m-0(f/'and'/s/%AND /)*
m-0(f/%start/f/'end'/s/; %FINISH /)*
m-0(f/[/s/(/)*
m-0(f/]/s/)/)*
m-0(f/'or'/s/%or /)*
m-0(f/'bits'/s/BITS/)*
m-0(f/'then'/s/%then /)*
m-0(f/'mask'/s/&/)*
m-0(f/:=/s/=/)*
m-0(f/'goto'/s/->/)*
m-0(f/%integerfn/t/fn/i/spec/)15
m-0(f/%routine/t/ine/i/spec/)44
(f/%routine /f/'begin'/k)*
m-0(f/%integerfn /f.'begin'.k)*
m-0(f/'integer'(/s/integer(/)*
m-0(f/'integer'/s/%INTEGER /)*
m-0(f/;/r(v. .r)*v.(.(i/{/r0lv.).\ri.}.m)*r0i/}/,)*
m-0(r0lv.;.m,v.}.m,r0i/ %c/m)*
m-0(f/'end'/s/;%end;/)*
m-i/;%endofprogram/e0
m-0g
%begin
m-0f/0:buf limit/l0(f/name /s/ /p)10
%c
i coral2x,.null,l,.out