%begin
%integer i
  openoutput(1,"$m"); selectoutput(1)
  printsymbol(byteinteger(i)) %for i=0,2,4094
  openoutput(2,"$l"); selectoutput(2)
  printsymbol(byteinteger(i)) %for i=1,2,4095
%endofprogram