Posted to tcl by Stu at Sun Apr 05 05:34:24 GMT 2020view raw

  1. % aitcs new cat {} {} says meow likes dog
  2. % aitcs new dog {} {} says woof likes cat
  3.  
  4. % dog. likes says
  5. meow
  6.  
  7. % dog. likes. likes says
  8. woof
  9.  
  10. % dog. {*}[lrepeat 9 likes.] likes says
  11. woof
  12.  
  13.