Something

partno/array_test
print/on
clprnt

        k = 4
p       = point / k, 0

la1)    loopst

        p = point / p, canon, k, 0
        k=k-1
        if (k-1) la3, la1, la1

la3)    loopnd

fini
~