cake.expect

spawn frob -i plain bone.t3

send "\n\n\n\n\n\n\n\n\n\n"

while {1} {
  expect {
      "More" {send "\n"}
      default break
  }
}

while {1} {
  set hole [expr int(rand()*5)+1]
  expect ">"
  send "play $hole\n"
  expect  {
   "understand that command" continue
   "file that comes" continue
   default exit
  }
}