;;;正数求余（x % y）
(define ( mod x y )
(if ( < x y )
x
( mod (- x y) y )))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; int mod ( int x, int y )
;;; {
;;; if ( x < y )
;;; return x;
;;; else
;;; mod ( x-y, y)
;;; } // end function mod