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