RosettaCodeData/Task/Y-combinator/Oforth/y-combinator-2.oforth

: X(me, f)   #[ me f me perform f perform ] ;
: Y(f)       #X f X ;