# a few tapes to test a parenthesis checker
say "reading paren.tm, the list of quintuples..."
read tm paren
say "done.  Now try some sample tapes..."
say " for tape ((())) .."
      set tape ((()))
      go
say " for tape ((()) .."
      set tape ((())
      go
say " for tape (()()) .."
      set tape (()())
      go
say " for tape ()()()()()()()).."
      set tape ()()()()()()())
      go
say " "
say "now try one of your own.  for example, enter"
say "   'set trace descriptor, set tape (()), go' "
say "this will create a tape and 'go' while desplaying the work"
say "in descriptor notation.  The commas are not required."
say "Note that while tracing with descriptor notation, '(' has"
say "  two contexts!"
say " "