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