aplwc_start
expect {
    "      " { pass "6-space prompt" }
}
send "\004"
expect {
    eof { pass "EOT ends the session" }
}