RosettaCodeData/Task/Catalan-numbers/Forth/catalan-numbers.fth

: catalan ( n -- )  1 swap 1+ 1 do dup cr .  i 2* 1- 2*  i 1+ */ loop drop ;