function Str (s)
   if string.match(s.c, '[0-9mdclxvi]+–[0-9mdclxvi]+') then
      return pandoc.Str(string.gsub(s.c, '–', '-'))
   end
end