(compile(defun f(c)(dotimes(i 7811)(setf m 99 k()(elt a i)(if(find i c)`(,i)(doseq(x c(if k`(,k,@(elt a(- i k)))))(and(>= i x)#1=(elt a(- i x))(< #2=(length #1#)m)(setf m #2#k x))))))a))(loop(setf x(read-from-string(delete #\:(format()"(~A)"(read-line))))a(make-array 7811)n(pop x))(format t"~{~A~^ ~}
"(or(elt(f x)n)'(-))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).