(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))