fact2(n) := block([r: 1], for i thru n do r: r * i, r)$