(defun jo(n k)
(if (= 1 n) 1 (1+ (% (+ (1- k)
(jo (1- n) k)) n ) ) ))
(princ-list (jo 50 2) "\n" (jo 60 3))