(a)0[(~)()4000{(%stdin)(r)file read{dup 32 le{pop()}{32 or dup 7 add 26 idiv 4
eq{( )dup 0 4 3 roll put concatstrings/}if pop}ifelse}if}repeat]{lt}.sort{dup 3
index gt{exch =only( )print exch = 1}{2 index eq{1 add}if}ifelse}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).