10{(%stdin)(r)file read pop 48 sub get}repeat[([){( /\\)exch 2 index 2 mod mul 1 getinterval print 2 idiv}def 19 -1 0{dup 2 idiv{( )print}repeat 2 mod 1 eq{exch 1[2[exch count 11 ne{1[2[1[}if pop}{2[1[2[}ifelse/ =}for 1[2[1[