Posted to tcl by aspect at Thu May 11 09:41:23 GMT 2017view pretty

#!/usr/bin/env expect
#
spawn nano

interact {
    -nobuffer -re
    {\rproc [^ ]+ }    { send "{args} {\r\r}\033\[A  " }
}