printsIndentedLists :: (MonadState PrintState m, MonadWriter (Endo String) m)
                    => CommandList -> m ()
printsIndentedLists ls = do
  indented $ do
    printNewline
    printList $ toList ls
  printIndent
printsIndentedLists :: (MonadState PrintState m, MonadWriter (Endo String) m)
                    => CommandList -> m ()
printsIndentedLists ls = do
  indented $ do
    printNewline
    printList $ toList ls
  printIndent
printsIndentedLists ls = do
  indented $ do
    printNewline
    printList $ toList ls
  printIndent