(Adding: box,cls,typefile,ginfo,revstack,reverse,showtime,shprocs,shpath,...\n) print
(Adding: land...\n) print

(ps:land.ps) run
(ps:procs.ps) run
/shpath { {(MOVE)} {(LINE)} {(CURVE)} {(CLOSE)} pathforall} def
/cls {(\f) print} def
/ginfo	{currentlinewidth currentmiterlimit currentlinejoin currentlinecap } def
/reverse { 2 exch 1 exch { -1 roll } for } def
/revstack { count reverse } def
(ps:useful.ps) run

(\nHey Rudy, is it 5.30 yet ?\n\n) print
