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