(defun d(s)(format t"~{~A~}~%"s)(and #1=(loop for c on s while(cdr c)collect(abs(-(car c)(cadr c))))(d #1#)))(d(map'list(lambda(x)(-(char-code x)48))(read-line)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).