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

: catalan( n -- m )
    n ifZero: [ 1 ] else: [ catalan( n 1- ) 2 n * 1- * 2 * n 1+ / ] ;