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