(run-hook-with-args 'shen-pre-eval-hook start end)
(comint-send-region (inferior-shen-proc) start end)
(comint-send-string (inferior-shen-proc) "\n")
(run-hook-with-args 'shen-pre-eval-hook start end)
(comint-send-region (inferior-shen-proc) start end)
(comint-send-string (inferior-shen-proc) "\n")