(define l (map string->number (string-split (read-line) " "))) (print (- 55 (fold + 0 l)))