(doseq(c(remove-duplicates(set's(read-line))#2=:from-end t))(format t"~C: ~D
"c(-(#1=position c s #2#t)(#1#c s))))