roman(v,5).
roman(i,1).
roman(x,10).

r(X) :- roman(X,N), writeln(N).
