macro p1
i = 10
for p in [*] [i] 1 2
sq = [p]*[p]
message [p] squared is [sq]
endfor