# 
  # Wait for prompt - "(1)>>" 
  #
  $t->prompt('/\(\1\)\>\>\s*$/');