Evaluated proc sineseq {n a i} { m [seq 1 [/r $n $i]] {x { expr $a*sin($x*$i)}} { } }