/fourpops
{ 4 {pop} repeat } def

/background {                             % fekete háttér
0 18 moveto
0 72 108 72 18 arcto fourpops
108 72 108 0 18 arcto fourpops
108 0 0 0 18 arcto fourpops
0 0 0 72 18 arcto fourpops
fill } def

/moon                                       % szürke hold
{.6 setgray
81 45 18 0 360 arc fill} def

/omaha
{ 1 setgray
0 -1 moveto
1 2 scale                                 % y írányú duplázás
(OMAHA) stringwidth pop       % stringwidth: a verem tetején levő szöveget helyettesíti annak x és y
                                              % -írányú méretével
108 exch sub 2 div
0 rmoveto
(OMAHA) show } def
% főprogram
255 465 translate
background
moon
omaha
showpage