10{[0[]>>begin(%stdin)(r)file 999 string readline pop cvx exec count{count -1 1{array astore aload 0 1 index{add}forall exch def}for count 1 roll}repeat()0 currentdict{pop max}forall load{exch print =only( )}forall()= clear end}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).