inlineToRST (Strikeout lst) = do 
  contents <- inlineListToRST lst
  return $ "[STRIKEOUT:" <> contents <> "]"
inlineToRST (Strikeout lst) = do 
  contents <- inlineListToRST lst
  return $ "[STRIKEOUT:" <> contents <> "]"
inlineToRST (Strikeout lst) = do 
  contents <- inlineListToRST lst
  return $ "[STRIKEOUT:" <> contents <> "]"