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