(defun least%-adder-muler-%sq)

(defun least-adder-sq (item)
   (set temp '())
   (append temp "A")
   (append temp item)
   (set temp (cons temp))
   (return temp)
)

(defun least-muler-sq (item)
   (set temp '())
   (append temp "B")
   (append temp item)
   (set temp (cons temp))
   (return temp)
)

(print (least-adder-muler-adder-sq '(X * K1 + K2)))
(print "\n")
