sequence row = {}
for m = 1 to 13 do
    row = row & 1
    for n=length(row)-1 to 2 by -1 do
        row[n] += row[n-1]
    end for
    printf(1,repeat(' ',(13-m)*2))
    for i=1 to length(row) do
        printf(1," %3d",row[i])
    end for
    puts(1,'\n')
end for