    
 # r(1)=(100/25)*3.14; r(2)=6.34*3.456/8.1; r(3)=sin(0.25); n=1; m=3; k=12; @

          
 # j=1; x=0; d=0.1; N=101; #rep N  # r(j)=x; r(j+1)=bj0(x); r(j+2)=bj1(x); x=x+d; j=j+3; #end  # n=N; m=3; k=12; @

      
 #d 11 r(1) 0 1 2 3 4 5 6 7 8 9 10  # j=1; #rep 11 # x=r(j); r(j)=0; &=(int(x/2)*2)<x; #case x # r(j)=1; #end | # j=j+1; #end  # n=11; m=1; k=12; @

