(define (System.out.println x) (begin (display x) (newline) ) ) (let ( (X (abs (read))) (Y (abs (read))) (L (read)) ) (if (= X 0) (System.out.println (ceiling (/ Y L))) (System.out.println (+ (ceiling (/ Y L)) (ceiling (/ X L)) 1)) ) )