(defun main (&rest argv) (declare (ignorable argv)) (let* ((a (read)) (b (read))) (format t "~d~%" (if (and (<= (* a 40) b) (< b (* (1+ a) 40))) 1 2)))) (main)