# -*- mode: snippet -*-
# name: expect
# key: <x
# --
#+BEGIN_SRC tcl
  send "$1\n"
  expectit "$0"
#+END_SRC