%begin
%integer i,j,k,l
  openoutput(1,"permute.inc")
  printstring("%constbytearray permute(0:255) = -"); newline
  %for i = 0,1,255 %cycle
    k = i; l = 0
    %for j = 1,1,8 %cycle
      l = k&1+l<<1
      k = k>>1
    %repeat
    write(l,3); printsymbol(',') %unless i=255
    newline %if i&15=15
  %repeat
%end