%!GS-5.10
% print pocket references on Avery 8371 business card form
/inch {72 mul} bind def
/kanaline { % (string -)
 gsave
 /Calligraphic-Hiragana 10 selectfont show
 grestore 0 -12 rmoveto
} bind def
/legend { % (string -)
 gsave
 /Courier 6 selectfont show
 grestore 0 -14 rmoveto
} bind def
/pocketref {
 gsave 3.25 inch -0.25 inch rmoveto 270 rotate
 0.75 0.75 scale % I made it too big, cheap workaround
 (q  w  e  r  t) kanaline
 ( a       i       u        e       o ) legend
 (a  s  d  f  g) kanaline
 (ka       ki      ku      ke       ko) legend
 (z  x  c  v  b) kanaline
 (sa      shi      su      se       so) legend
 (y  u  i  o  p) kanaline
 (ta       ti      tzu     te       to) legend
 (h  j  k  l  ;) kanaline
 (na       ni      nu      ne       no) legend
 (n  m  ,  .  /) kanaline
 (ha       hi      fu      he       ho) legend
 (Y  U  I  O  P) kanaline
 (ma       mi      mu      me       mo) legend
 (H  J  K  L  :) kanaline
 (ra       ri      ru      re       ro) legend
 (Q     E     T) kanaline
 (ya               yu               yo) legend
 (A           G) kanaline
 (wa                                wo) legend
 ('            ) kanaline
 ( n                                  ) legend                     
 grestore
 gsave
  0.25 inch -1.85 inch rmoveto /Helvetica 6 selectfont
  (Hiragana Pocket Reference  \267\
  Copyright (C) John Comeau 2002  \267  Price 1 US Dollar) show
 grestore
} bind def
/onerow {
 gsave pocketref 3.5 inch 0 inch rmoveto pocketref grestore
} bind def
0.75 inch 10.5 inch moveto % top left card on form
5 {gsave onerow grestore 0 inch -2 inch rmoveto} repeat
showpage