(do`(l(map'list'digit-char-p(read-line))(or(mapcar'abs(mapcar'-(cdr l)l))!))((format t"~{~A~} "l)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page