#2345678 1 2345678 2 2345678 3 2345678 4 2345678 5 2345678 6 2345678 7 2345
for('001'x33|'00002'x20){print[pos,Fizz,Buzz,FizzBuzz]->[$1],$/while/(.)/g}
for('001'x33|'00002'x20){warn+(pos,Fizz,Buzz,FizzBuzz)[$&],$/while/./g}

map{warn+(FizzBuzz,Fizz,Buzz,pos)[$&],$/while/./g}331x34&33332x20
#2345678 1 2345678 2 2345678 3 2345678 4 2345678 5 2345678 6 2345