#!@guile@ -s
!#

;; Obviously, this is -*- Scheme -*-.

(use-modules (system vm objcode)
             (system vm disasm))

(for-each (lambda (file)
            (disassemble-objcode (load-objcode file)))
          (cdr (command-line)))