Posted to tcl by schelte at Sun Jun 26 09:59:57 GMT 2022view raw

  1. proc a {} {puts "This is a"}
  2. proc b {} {puts "This is b"}
  3. proc c {} {proc c {} {puts "This is c"}}
  4. proc q {} {a;b;c}
  5. q
  6. q
  7. q
  8.  
  9. Output:
  10. This is a
  11. This is b
  12. This is a
  13. This is b
  14. This is c
  15. This is a
  16. This is b
  17. This is c