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