(defvar B)
(defvar temp)
(setq temp (read-line))
(setq temp (read-from-string (concatenate 'string "(" temp ")")))

(defvar sum )
(setq sum 0)
(loop for x in temp do
        ;(print x)
        (setq sum (+ sum x))
)
(format 't "~d~%" (- 55 sum))