Aplicar un comando de 2 argumentos a los elementos de 2 listas con números reales

Para aplicar un comando de 2 argumentos a los elementos de 2 listas con números reales puedes hacer lo siguiente:

NULLNAME {%}OPERACION ( {%} {%} → {%} )
::
>R
INNERDUP
ZERO_DO (DO)
...ROLL
...RSWAP 'R RSWAP
...En esta línea escribir el comando que tenga la forma: % % → %
...ISTOP@
LOOP
{}N
;

Por ejemplo:

*** SUMA DE LOS ELEMENTOS DE DOS LISTAS
NULLNAME {%}+ ( {%} {%} → {%} )
:: >R INNERDUP ZERO_DO (DO) ROLL RSWAP 'R RSWAP %+ ISTOP@ LOOP {}N ;

*** RESTA DE LOS ELEMENTOS DE DOS LISTAS
NULLNAME {%}- ( {%} {%} → {%} )
:: >R INNERDUP ZERO_DO (DO) ROLL RSWAP 'R RSWAP %- ISTOP@ LOOP {}N ;

*** MULTIPLICACION DE LOS ELEMENTOS DE DOS LISTAS
NULLNAME {%}* ( {%} {%} → {%} )
:: >R INNERDUP ZERO_DO (DO) ROLL RSWAP 'R RSWAP %* ISTOP@ LOOP {}N ;

*** DIVISION DE LOS ELEMENTOS DE DOS LISTAS
NULLNAME {%}/ ( {%} {%} → {%} )
:: >R INNERDUP ZERO_DO (DO) ROLL RSWAP 'R RSWAP %/ ISTOP@ LOOP {}N ;

OBSERVACIONES
►Las 2 listas deben contener sólamente números reales. Además deben tener por lo menos un elemento.
►Las 2 listas deben tener el mismo número de elementos.
►Con el ejemplo {%}+ se logró una reducción en tiempo de 0.044 s a 0.016 s con listas de 5 elementos.