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

##</code><code>##

  $t -> prompt ('/[(]1[)]>>\s*$/');