zoj 1088

(define (mod m n) (- m (* (truncate (/ m n)) n)))

;(define (josx n m)
;        (if (= n 1)
;	    0
;	    (mod (+ (josx (- n 1) m) m) n)))
(define (josx n m)
  (let ((win 0) (i 1))
    (while (< i n) (set! win (mod (+ win m) i)) (set! i (+ i 1)))
  ;(display win))
    (if (= win 0) #t #f))
)
    

(define (solve)
  (while 1
    (let ((n (read)))
         (if (= n 0) (exit 0))
         (let ((m 1))
             (while 1
               (let ((s (josx n m)))
                      (if s ((display m) (newline) (break))
                                 (set! m (+ m 1)))))))))

(solve)