Posted to tcl by alex at Sat Jul 28 17:11:17 GMT 2007view raw

  1. package provide t 1
  2.  
  3. namespace eval t {
  4.  
  5. proc t0 {} {return t}
  6. proc t1 {} {return [t0]}
  7. proc t2 {} {return [t1]}
  8. proc t3 {} {return [t2]}
  9. proc t4 {} {return [t3]}
  10. proc t5 {} {return [t4]}
  11. proc t6 {} {return [t5]}
  12. proc t7 {} {return [t6]}
  13. proc t8 {} {return [t7]}
  14. ........
  15. ........
  16. ........
  17. proc t987 {} {return [t986]}
  18. proc t988 {} {return [t987]}
  19. proc t989 {} {return [t988]}
  20. proc t990 {} {return [t989]}
  21. proc t991 {} {return [t990]}
  22. proc t992 {} {return [t991]}
  23. proc t993 {} {return [t992]}
  24. proc t994 {} {return [t993]}
  25. proc t995 {} {return [t994]}
  26. proc t996 {} {return [t995]}
  27. proc t997 {} {return [t996]}
  28. proc t998 {} {return [t997]}
  29.  
  30. }
  31.