procedure main(a)
    n := integer(a[1]) | 5
    w := ((n*(n-1))/2)-n
    c := create seq()
    every row := 1 to n do {
        every col := 1 to row do {
            width := *(w+col)+1
            every writes(right(@c,width))
            }
        write()
        }
end