pascal size
prints Pascal's triangle
Source code:
for {set n 0} {$n<=$size} {incr n} { puts [map "choose $n" [enum_from_to 0 $n]] }