link numbers

procedure main()
every R := "MCMXC"|"MDCLXVI"|"MMVIII" do
   write(R, " = ",unroman(R))
end