There is one other way for convert one expression with roman numbers (that are   
   variable names particular)in the correspondent expression INT   
      
   h(a)==   
      y:=tex(a).1   
      for j in 1..#y repeat   
        member?(y.j,"ivxlcmdIVXLCMD")=>1   
        return false   
      true   
      
   -- convert All the variable can be ROMAN NUMBERs too to Numbers decimal   
   -- so convert one ROMAN expression   
   -- to one INT expression   
   m(a:EXPR INT):EXPR INT==   
     c:=a;y:=variables(c)   
     for j in 1..#y repeat   
       if h(y.j) then c:=subst(c,y.j=(y.j::ROMAN)::INT)   
     c   
      
   -- convert one INT EXPR in ROMAN EXPR   
   f(a)==m(a)::EXPR ROMAN   
      
   This is a manual copy but the code above seems ok...   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)