     [ roman> ] bi@ ;
 
 : binary-roman-op ( str1 str2 quot -- str3 )
-    >r 2roman> r> call >roman ; inline
+    [ 2roman> ] dip call >roman ; inline
 
 PRIVATE>
 

    [ /i ] binary-roman-op ;

: roman/mod ( str1 str2 -- str3 str4 )
    [ /mod ] binary-roman-op >r >roman r> ;

: ROMAN: scan roman> parsed ; parsing


: (>roman) ( n -- )
    roman-values roman-digits [
        [ /mod swap ] dip <repetition> concat %
    ] 2each drop ;

: (roman>) ( seq -- n )
