iterate n f x
returns {x (f x) (f (f x) (f (f (f x))) ...}
Source code:
set result {} for {set i 0} {$i<$n} {incr i} { lappend result $x set x [eval_unary $f $x] } return $result