(DEFUN DecToBin(n lst)
 (COND ((> n '1)  (DecToBin (/ (- n (MOD n '2)) 2) (CONS (MOD n '2) lst)) )
       (1 (CONS n lst))
 )
)