.key a1,a2,a3,a4,a5,a6,a7,a8,a9
.bra {
.ket }
stack >t:estk_$process
set stack `rx <t:estk_$process "pull stk; say subword(stk, 5, 1)"`
delete >nil: t:estk_$process force
set cmp `eval $stack - 40000`
if 0 gt $cmp
  echo "Increasing stack to 40000 for emacs"
  stack 40000
endif
run >nil: temacs {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {a9}
stack $stack
