0 1 1[{[(%stdin)(r)file 30 string readline pop dup()eq{def
exit}if(7941)search{exch}{( )search pop 3 1 roll exch}ifelse cvi
count]}loop]{dup 2 get 2 index 2 get eq{exch 3 get exch 3}{2 get exch 2}ifelse
get lt}.sort{dup 2 get 4 index ne{3 2 roll pop 1 index exch}if 2 index
=only( )print{{print}forall}stopped pop dup = 3 1 roll 1 add}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).