(defun mnozenie (m n)
(cond
  ((or (eq m 0) (eq n 0))0)
  ((eq n 0) m)
  ((> n 1) (+ m (* m (- n 1)))
)))