(set'c #\1)(loop(format t"~A
"(setq s(read-line)p(position c s)c(if p(char s(- 1 p))c))))