printDoGroup :: (MonadState PrintState m, MonadWriter (Endo String) m)
             => CommandList -> m ()
printDoGroup c = do
  printString "do"
  printsIndentedLists c
  printString "done"
printDoGroup :: (MonadState PrintState m, MonadWriter (Endo String) m)
             => CommandList -> m ()
printDoGroup c = do
  printString "do"
  printsIndentedLists c
  printString "done"
printDoGroup c = do
  printString "do"
  printsIndentedLists c
  printString "done"