RosettaCodeData/Task/Pascals-triangle/Oforth/pascals-triangle.fth

: pascal(n)  [ 1 ] #[ dup println dup 0 + 0 rot + zipWith(#+) ] times(n) drop ;