(defun nod(a b)
 (cond
  ((= a b) a)
  ((= (REM a b) 0) b)
  ((= (REM b a) 0) a)
  ((> a b) (nod (REM a b) b) )
  (1 (nod a (REM b a) ) )
 )
)


(nod 3 6)
(nod 5 7)
(nod 128 12)
(nod 63 21)
(system)