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

    [ roman> ] bi@ ;

: binary-roman-op ( str1 str2 quot -- str3 )
    >r 2roman> r> call >roman ; inline

PRIVATE>


    [ /i ] binary-roman-op ;

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

: ROMAN: scan roman> parsed ; parsing
