( scratchpad ) [ over f over f ] optimized. [ over f over f ] ( scratchpad ) [ 2dup [ f ] bi@ ] optimized. [ 2dup >R f R> f ] ( scratchpad ) [ 2dup [ f ] bi@ ] test-mr mr. === word: ( gensym ), label: ( gensym ) _label 0 _label 1 ##peek ECX D 0 ##peek EAX D 1 ##load-immediate EBX 5 ##inc-d 4 ##replace EAX D 3 ##replace EBX D 0 ##replace ECX D 1 ##replace EBX D 2 _label 2 ##return _spill-area-size 0 ( scratchpad ) [ over f over f ] test-mr mr. === word: ( gensym ), label: ( gensym ) _label 0 _label 1 ##peek ECX D 1 ##load-immediate EAX 5 ##inc-d 4 ##replace EAX D 0 ##replace ECX D 1 ##replace EAX D 2 ##replace ECX D 3 _label 2 ##return _spill-area-size 0 ( scratchpad )