notesToRST :: [[Block]] -> State WriterState Doc
notesToRST notes = 
  mapM (\(num, note) -> noteToRST num note) (zip [1..] notes) >>=
  return . vsep
notesToRST :: [[Block]] -> State WriterState Doc
notesToRST notes = 
  mapM (\(num, note) -> noteToRST num note) (zip [1..] notes) >>=
  return . vsep
notesToRST notes = 
  mapM (\(num, note) -> noteToRST num note) (zip [1..] notes) >>=
  return . vsep