RosettaCodeData/Task/Runtime-evaluation-In-an-environment/Factor/runtime-evaluation-in-an-environment-1.factor

USE: eval
: eval-bi@- ( a b program -- n )
    tuck [ ( y -- z ) eval ] 2bi@ - ;