%begin
%option "-nocheck-nodiag"

%routine print escape string(%string(255)s)
%integer i,k
  %for i = 1,1,length(s) %cycle
    k = charno(s,i)
    printsymbol(27) %if k='['
    printsymbol(k)
  %repeat
%end

  print escape string("[>+//[>,//[>-//[s[r[u")
%end