(do'(x(map'list'digit-char-p(read-line))(mapcar'abs(mapcar'-(cdr x)x)))((format t"~{~D~:}
"x)))