(define (tokeru? n m) (let ((v (/ m n))) (if (integer? v) v "NO"))) (let ((n (read)) (m (read))) (print (tokeru? n m)))