Evaluated proc sineseq {n a} { m [seq 1 $n] {x {}} }