%!PS

% load font file
% (you don't need this, if you have a .pfa file, in which case
% you can directly specify it on the gs command line:
% $ gs -q -dNODISPLAY ZURIFB__.pfa 683209.ps )
(./ZURIFB__.pfb)    % or whatever your .pfb file is
(r) file true /PFBDecode filter cvx
mark exch exec cleartomark

/ZurichFigurine-Bold findfont 12 scalefont setfont

/print_width {
  dup
  (  \(" " ) dup 4 4 -1 roll putinterval print  % '("X" '
  stringwidth pop 20 string cvs print           % width
  (\)) print                                    % ')'
} bind def

/i2s {    % int/char to string
  ( ) dup 0 4 -1 roll put
} bind def

(\(setq ZURIFB__afm12 '\() =       % 1st line

(RNBQKO-x+.abcdefgh1234567890) {   % char list
  i2s dup 
  print_width
  (0) ne {()=} if                  % "\n", unless last char
} forall

(\)\)) =                           % "))\n"

quit