(defun bc (a)
	(if (= a 0) 
		0
		(+ (mod a 2) (bc (floor a 2)))))
	
(format t "~d" (bc (read)))