(do`(l(map'list'digit-char-p(read-line))(or(mapcar'abs(mapcar'-(cdr l)l))!))((format t"~{~A~}
"l)))