/onechar {
  /s exch def
  100 0 moveto
  100 1000 lineto
  0 100 moveto
  1000 100 lineto
  -100 10 900
    {
      dup /len exch 50 mod 0 eq {8} {4} ifelse def
      dup 100 add 100 len sub moveto dup 100 add 100 len add lineto stroke
      dup 100 add 100 len sub exch moveto 100 add 100 len add exch lineto stroke
    } for
  /Times-BoldItalic-Ogonki findfont 500 scalefont setfont
  100 100 moveto s show
  showpage
} def

/polchar {
  [(\241) (\261) (\312) (\352)    % ogonki
   (\246\323) (\266\351) (\306\323) (\346\351)    % s & c acute
   (\321\311) (\361\351)                  % n acute
   (\254\311) (\274\351)                  % Z acute
   (\257\311) (\277\351)]                 % z dotaccent
  {onechar} forall
} def