(require 'compiler)
(require 'disassembler)
(defmacro bc (form)
  `(disassemble (compile-form ',form)))