(define (solve a b) (let ([r (/ b a)]) (cond [(< (abs (- r 40)) (abs (- r 1600))) 1] [else 2]))) (define (main args) (let* ([a (read)] [b (read)]) (print (solve a b))) 0)