#!/lang/expect

spawn ed [lindex $argv 0]
expect "\r"
send "a\r"
interact