; a < b のとき '+' を出力する
; その後 b - a を出力する
(defun main ()
  (let* ((a (read))
         (b (read)))
    (when (< a b) (write-char #\+))
    (princ (- b a))
    (terpri)))
(main)