MUL2
(defgeneric mul2 (arg1 arg2) (:method ((n1 number) (n2 number)) (* n1 n2))) (mul2 3 4) 12 (mul2 #c(4 3) #c(-4 -3)) ; комплексные числа #C(-7 -24)