(defun licz (x)
       (if (= x 1) 1
           (let ((w (licz (/ x 2))))
         (if (= 1 (mod x 2))
             (+ w 1)
             (- w 1)))))