IF or EITHER as a function

[RebolBert]

How could I write in REBOL this piece of Scheme code :

Code:

(define x 1)
((if (< x 5) + *) 3 4)
=> 7

((if (< x 5) + *) 3 4) is more concise than  (if (< x 5) (+ 3 4) (* 3 4)) or either x < 5  [3 + 4] [3 * 4] (but maybe less readable ?)

[Graham]

this factors out the operator, but introduces a variable instead

op: either x < 5 [:add][:multiply] op 3 4

[Gabriele]

Code:

do either x < 5 [:add] [:multiply] 3 4

[Graham]

Ahh... I thought I tried that first and got an error, but I see it works

[RebolBert]

Code:

>> x: 1
== 1
>> do either x < 5 ['add]['multiply] 3 4
== 7

Thanks for the solution, as readable as the Schem(atic) one  -_-

Great power of Rebol !