(defun boom-boom (program file)
  (with-temp-buffer
    (insert-file-contents-literally file)
    (let ((p (start-process "*Boom*"
			    (current-buffer)
			    program)))
      (process-send-region p (point-min) (point-max)))))