Code Select Expand(new Tree 'hh)(for (i 1 5) (setq key (string i)) (for (k i 1 -1) (hh key (if DOLLAR-it (extend (list k) DOLLAR-it) (list k))) ))(hh)
Code Select Expandoutput: (("1" (1)) ("2" (1 2)) ("3" (1 2 3)) ("4" (1 2 3 4)) ("5" (1 2 3 4 5)))