set timeout -1
set send_slow {1 .1}
proc send {ignore arg} {
    sleep .1
    exp_send -s -- $arg
}

cd ../kernel
spawn make run arch=x86_64
sleep 2
expect ">>"
sleep 2
send -- "biscuit/fork\r"
sleep 5
expect "hello from 100"
expect "parent done!"
send -- "busybox halt -f\r"