t-gensym.scm 441 B

1234567891011121314151617181920212223
  1. ;; import lambda/simple-gensym.scm
  2. (print (gensym 'a))
  3. (print (gensym 'a))
  4. (print (gensym 'c))
  5. (print (gensym 'b))
  6. (print (gensym 'b))
  7. (print (gensym 'b))
  8. (print (gensym 'a))
  9. (print (gensym 'b))
  10. (print (gensym 'a))
  11. (print (gensym 'a))
  12. (print (gensym 'c))
  13. (print (gensym 'a))
  14. (print (gensym 'a))
  15. (print (gensym 'a))
  16. (print (gensym 'a))
  17. (print (gensym 'a0))
  18. (print (gensym 'a1))
  19. (print (gensym 'a2))
  20. (print (gensym 'a1))
  21. (print (gensym 'a2))