get "libhdr"

let pascal(n) be
    for i=0 to n-1
    $(  let c = 1
        for j=1 to 2*(n-1-i) do wrch(' ')
        for k=0 to i
        $(  writef("%I3 ",c)
            c := c*(i-k)/(k+1)
        $)
        wrch('*N')
    $)

let start() be pascal(8)