0 0 moveto/p{cvi dup 9 le{( )print}if( )print =only}def 0 1 .runstdin count 3 sub array astore/a exch def 2 sub -1 0{{a exch 2 getinterval aload/d exch def 2 copy gt{exch 1}{0}ifelse 1 rmoveto d astore 0 / currentpoint(compare =)print p( swap =)print p( data:)print a{p}forall =}for 1}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).