instr 1
inum pcount
index init 1
loop1:
ivalue pindex index
printf_i "p%d = %f\n", 1, index, ivalue
index = index + 1
if (index <= inum) igoto loop1
print inum
endin
i1 0 3 40 50 ; has 5 pfields
i1 1 2 80 ; has 5 due to carry
i1 2 1 40 50 60 70 ; has 7
e