(defun session-interp-connect (asession ainterp)
  (interpreter asession)
  (session ainterp)
  )