(define-values (m d) (apply values (map string->number (string-split (read-line) " ")))) (print (+ m d))