BIN-UTILS> (-bin (+bin (dec-to-bin -12) (dec-to-bin 125)) (*bin (dec-to-bin 2) (dec-to-bin 5))) 
(0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1)
BIN-UTILS> (bin-to-dec '(0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1))
103
BIN-UTILS> (- (+ (- 12) 125) (* 2 5))
103
BIN-UTILS>