to pascal :n
  if :n = 1 [output [1]]
  localmake "a pascal :n-1
  output (sentence first :a (map "sum butfirst :a butlast :a) last :a)
end

for [i 1 10] [print pascal :i]