(define (System.out.println x) (begin (display x) (newline) ) ) (define (TurnOrder X Y) (cond ((< Y 0) 2) ((> (abs X) 0) 1) (else 0) ) ) (let ( (X (read)) (Y (read)) (L (read)) ) (System.out.println (+ (ceiling (/ (abs Y) L)) (ceiling (/ (abs X) L)) (TurnOrder X Y))) )