(define (f a b) (let* ((xs (string-split a #/\s+/)) (xs (map string->number xs))) #"~(apply + xs) ~b")) (display (f (read-line) (read-line)))