(de add (A B)
   (mapcar + A B) )
(de sub (A B)
   (mapcar - A B) )
(de mul (A B)
   (mapcar '((X) (* X B)) A) )
(de div (A B)
   (mapcar '((X) (*/ X B)) A) )
(let (X (5 7)  Y (2 3))
   (println (add X Y))
   (println (sub X Y))
   (println (mul X 11))
   (println (div X 2))  )