(define x (read)) (define y (read)) (define l (read)) (define turn (lambda (x y) (cond ((and (zero? x) (>= y 0)) 0) ((and (>= y 0)) 1) (else 2)))) (define mo (lambda (x) (if (zero? x) 0 1))) (print (+ (turn x y) (div (abs x) l) (div (abs y) l) (mo (modulo x l)) (mo (modulo y l))))