#!/usr/bin/expect -f

set env(TERM) vt100

set timeout 10
match_max 100000

spawn telnet $argv 3551
expect "Escape character is '^\]'.\r\r" {
     exit 0
}
exit 1
