(defun binary-to-decimal (b)
"Convert the given binary number to decimal."
    (interactive "sBinary number: ")
    (if (not (proper-binary-format b))
	(error "That ain't a proper binary number, you stupid mofo.")
        (progn
	    (setq zero 48)
	    (setq one 49)
	    (setq n (string-to-int b))
	    (setq l (string-to-list b))
	    (setq multiplier 1)
	    (setq result 0)
	    (while (not (null l))
	        
	    )
	)
    )
)