(define a (read)) (define b (read)) (display (- 0 (- (- 0 a) b))) (newline)