20{(%stdin)(r)file dup token{exch 99 string readline/n 2 index length def[n{n
string}repeat]n 1 sub -1 0{0 2 index{2 index 6 index 3 index get put 1
add}forall pop pop{lt}.sort}for 3 index get =}if}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).