(defun run-buffer (args)
  (interactive "sArguments to script: ")
  (save-buffer)
  (shell-command (concat (buffer-file-name (current-buffer)) " " args)))