line-mode
tuck-d
reverse
m:
    ( "IXCMVLD" )
    index
    power-of-10
    9995
    %
    2dup
    >
        None
    f1
}
sum
nip