A compact version:

alias msay var %x 1 | while $chan(%x) { bs say $v1 $1- | inc %x }