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