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