(setf j 1 p 1)(doseq(x(sort(loop while(listen)collect(read-line))'> :key(defun k(s)(car(last(read-from-string(#1=format()"(~A)"s)))))))(#1#t"~D ~A "(if(=(k x)p)i(setf p(k x)i j))x)(incf j))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).