[metapost] label and for loop

[Ranousse]

I would like to write something like

for i = 1 upto 10
  label( btex $A_i$ etex, z[i])
endfor

so that I get A_0 for z0, A_1 for z1,...

Is it possible ?