timeout 600 

expect
set build [lindex $argv 0]
set RC [lindex $argv 1]
set ckpt [lindex $argv 2]
end_expect

open SAM "$build/bin/sam -c $RC -R $ckpt" 
log_user SAM 1

pattern SAM "(guest|hyper)\[^\r]* /dev/(\[^\r]*)\r\n"
if { "$expect_out(1,string)" == "guest" } {
     set guest_tty "/dev/$expect_out(2,string)"
} elseif { "$expect_out(1,string)" == "hyper" } {
     set hyper_tty "/dev/$expect_out(2,string)"
} else {
     send_error "Bad tty parse: $expect_out(1,string)\n"
     exit 2
}
exp_continue
end_pattern SAM

set_prompt SAM 'stop: '
wait_prompt SAM
clear SAM patterns 

open HYPER "-noecho /usr/bin/tip $hyper_tty"
log_user HYPER 0
open GUEST "-noecho /usr/bin/tip $guest_tty"
log_user GUEST 0

error HYPER "\[Pp]anic"
error GUEST "\[Pp]anic"