writes start program!
;
a=(3+3)*(((4-2)*(2+1))+2);
b=(2+3)*((5-2)-1);
c=a+b+(10/5);
writes   a=;  #  
write a;      #   "A"
writes   B=;  write b;
writes   C=;  write c;
writes   result (2+6)/2=;  write (2+6)/2;
#  "OK"     
writes   OK
;
a;b;c;          #    A,B,C
c=c+1;
c;
c=c;
c;
a=b=c;
a;b;c;
a=b=c=1+1;      #    A,B,
a;b;c;
#  
a=0;            # 
:NEXT           # -  
b=1+(a/2);
writes  count=; write a;
writes  result=;write b;

writes  IRONWOODCUTTER@BK,RU
;               #      
a=a+1;          #  
if a!10;NEXT;   # 10 ,  ,, a=0,,9
if ((2*2)+5)<9; exit;
writes 9<9=false;
:exit
.               # -  