.runstdin/p{print dup 9 le{( )print}if =only}def 0([)0 def 5 1 count{count exch
-1 exch{1 sub dup -2 roll 2 copy gt{exch([)1[add def}if 2 index 2 roll pop 1
add dup(compare = )p[( swap = )p( data:)print count 2 sub -1
1{index( )p}for/ =}for}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).