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