(defun refactor-extract ()
  "Change region into a subroutine"
  (interactive)

  (shell-command-on-region (point) (mark) "./refactor-extract" t)
  )