# Working
expect <<'EOF'
spawn cl
expect "cl>"
send "noao\r"
expect "no>"
send "digiphot\r"
expect "di>"
send "apphot\r"
EOF

# Not Working
expect <<'EOF'
spawn cl
expect {
    "cl>"{send "noao\r"}
    "no>"{send "digiphot\r"}
    "di>"{send "apphot\r"}
}
EOF