(defun ob-term-shell (program &optional buffer-name)
  "Helper function to create a comint buffer."
  (cl-letf (((symbol-function 'pop-to-buffer-same-window) #'pop-to-buffer))
    (let ((explicit-shell-file-name program)
          (prevbuf (current-buffer)))
      (shell (or buffer-name (format "*%s*" program)))
      (pop-to-buffer prevbuf))))

#+end_src
** ghci in comint-mode
#+header: :create '(ob-term-shell "ghci")
#+header: :buffer *ghci*
#+begin_src term:haskell
  3 * 3
  4 + 7