(define (System.out.println x) (begin (display x) (newline) ) ) (let ( (X (read)) (Y (read)) ) (System.out.println (inexact->exact (+ (floor (* (sqrt (+ (expt X 2) (expt Y 2))) 2)) 1))) )