(let ((line1 (read-line))
      (line2 (read-line)))
  (call-with-input-string
   line1
   (lambda (s)
     (let ((n (read s)) (m (read s)))
       (format #t "~a ~a~%" (+ n m) line2)))))