fold

fold   f   e   xs

takes a binary function f, a start element e and a list {x1 x2 ...} and returns f (...(f (f (f e x1) x2) x3)...)

Source code:

    set result $e
    foreach x $xs {
	set result [eval_binary $f $result $x]
    }
    return $result