BIN-UTILS> (dec-to-bin 2)
(0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0)

BIN-UTILS> (+bin '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0) '(0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0))
(0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0)

BIN-UTILS> (bin-to-dec '(0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0))
4