.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