inlineToRST (Superscript lst) = do 
  contents <- inlineListToRST lst
  return $ "\\ :sup:`" <> contents <> "`\\ "
inlineToRST (Superscript lst) = do 
  contents <- inlineListToRST lst
  return $ "\\ :sup:`" <> contents <> "`\\ "
inlineToRST (Superscript lst) = do 
  contents <- inlineListToRST lst
  return $ "\\ :sup:`" <> contents <> "`\\ "