Evaluated proc sin {n s} { set out [list]; for {set i 0} {$i < $n} {incr i} { lappend out [expr sin($i)*100] }; return $out }