function Str (s)
   if string.match(s.text, '[0-9mdclxviA-C]+–[0-9mdclxviB-D]+') then
      return pandoc.Str(string.gsub(s.text, '–', '-'))
   end
end