glualint 1.26.0 → 1.27.0

raw patch · 24 files changed

+30156/−31887 lines, 24 filesdep +tasty-hunitdep −uu-parsinglibdep ~basedep ~bytestringPVP ok

version bump matches the API change (PVP)

Dependencies added: tasty-hunit

Dependencies removed: uu-parsinglib

Dependency ranges changed: base, bytestring

API changes (from Hackage documentation)

Files

• README.md +0/−2
• app/GLuaFixer/Effects/AnalyseGlobals.hs +1/−1
• app/GLuaFixer/Effects/Run.hs +13/−40
• glualint.cabal +23/−12
• src/GLua/AG/AST.hs +88/−122
• src/GLua/AG/PrettyPrint.hs +8726/−7288
• src/GLua/AG/Token.hs +68/−77
• src/GLua/Lexer.hs +263/−349
• src/GLua/LineLimitParser.hs +2/−2
• src/GLua/PSLexer.hs +0/−350
• src/GLua/PSParser.hs +0/−603
• src/GLua/Parser.hs +367/−421
• src/GLua/Position.hs +83/−0
• src/GLua/TokenTypes.hs +151/−405
• src/GLuaFixer/AG/ASTLint.hs +14147/−15302
• src/GLuaFixer/AG/LexLint.hs +6120/−6871
• src/GLuaFixer/BadSequenceFinder.hs +4/−3
• src/GLuaFixer/Interface.hs +7/−23
• src/GLuaFixer/LintMessage.hs +3/−4
• src/GLuaFixer/LintSettings.hs +0/−4
• tests/golden/data/input/various-comments.lua +2/−0
• tests/golden/data/output/issue-106.lua +3/−1
• tests/golden/data/output/various-comments.lua +14/−7
• tests/linttest/Spec.hs +71/−0

@@ -79,7 +79,6 @@     "prettyprint_removeRedundantParens": true,     "prettyprint_minimizeParens": false,     "prettyprint_assumeOperatorAssociativity": true,-    "prettyprint_rejectInvalidCode": false,     "prettyprint_indentation": "    ",      "log_format": "auto"@@ -140,7 +139,6 @@ `prettyprint_removeRedundantParens` | Whether to remove unnecessary parentheses (e.g. `x = (1 + 2)`, `if ((1) + (2) == 3) then`) `prettyprint_minimizeParens` | Removes parentheses which are unnecessary due to operator precedence (e.g. `(1 * 2) + 3`). This option also removes redundant parameters, regardless of whether `prettyprint_removeRedundantParens` is enabled. `prettyprint_assumeOperatorAssociativity` | Only takes effect when `prettyprint_minimizeParens` is `true`. It decides whether parameters can be removed when the involved operators are assumed associative. Examples: `a * (b * c)`, `a and (b and c)`. This assumption is generally true, except for floating point numbers, where removing parentheses can actually change the outcome of the calculation. See [Stack Overflow](https://stackoverflow.com/a/10371890). This option is set to `true` by default, because the expectation is that this will not be problematic even if it affects your code. In a very rare case, this might cause trouble, though. You might want to consider turning this off if you have floating point code that heavily relies on evaluation order. You may also choose to leave this option on and ensure evaluation order by explicitly setting variables.-`prettyprint_rejectInvalidCode` | Whether not to pretty print when the code is syntactically invalid  ### Other options 

@@ -16,7 +16,7 @@ import GHC.Exts (sortWith) import GLua.AG.AST (AST) import GLua.AG.PrettyPrint (renderRegion)-import GLua.AG.Token (Region)+import GLua.Position (Region) import GLuaFixer.AG.ASTLint (globalDefinitions) import GLuaFixer.Effects.Logging (Logging, putStrLnStdOut) import GLuaFixer.LintSettings (LintSettings)

@@ -10,7 +10,7 @@  module GLuaFixer.Effects.Run where -import Control.Monad (unless, when)+import Control.Monad (when) import qualified Data.Aeson as JSON import qualified Data.ByteString.Lazy.Char8 as BL8 import Effectful (Eff, (:>))@@ -19,8 +19,7 @@ import GLua.AG.AST (AST) import GLua.AG.Token (MToken) import GLua.ASTInstances ()-import qualified GLua.PSParser as PSP-import qualified GLua.Parser as UUP+import qualified GLua.Parser as Parser import GLuaFixer.Cli (Command (..), Options (..), OverriddenSettings, SettingsPath) import GLuaFixer.Effects.AnalyseGlobals (analyseFile, execAnalysis, reportAnalysis) import GLuaFixer.Effects.Cli (Cli, CliParseResult (..), parseCliOptions)@@ -97,7 +96,7 @@               worstExitCode exitCode <$> lint lintSettings filepath contents         (PrettyPrint, UseStdIn) -> do           (lintSettings, contents) <- getStdIn options.optsConfigFile options.optsOverridden-          case prettyprint lintSettings contents of+          case prettyprint lintSettings "stdin" contents of             Nothing -> pure $ ExitFailure 1             Just prettyprinted -> do               putStrStdOut prettyprinted@@ -110,7 +109,7 @@             files             $ \exitCode lintSettings filepath contents -> do               putStrLnStdOut $ "Pretty printing " <> filepath-              case prettyprint lintSettings contents of+              case prettyprint lintSettings filepath contents of                 Nothing -> pure $ ExitFailure 1                 Just prettyprinted -> do                   writeFile filepath prettyprinted@@ -256,16 +255,15 @@ -- | Pretty print a file prettyprint   :: LintSettings+  -> FilePath   -> String   -> Maybe String-prettyprint lintSettings contents = do-  if lintSettings.prettyprint_rejectInvalidCode && hasErrors-    then Nothing-    else Just $ Interface.prettyprint lintSettings ast+prettyprint lintSettings filepath contents =+  case eAst of+    Left _errors -> Nothing+    Right ast -> Just $ Interface.prettyprint lintSettings ast   where-    (tokens, lexErrors) = Interface.lexUU lintSettings contents-    (ast, parseErrors) = Interface.parseUU tokens-    hasErrors = not (null lexErrors) || not (null parseErrors)+    eAst = Interface.lex lintSettings filepath contents >>= Interface.parse lintSettings filepath  -- | Test glualint itself against a file. TODO: Refactor this into a nicer command test@@ -277,24 +275,7 @@   -> Eff es ExitCode test exitCode lintSettings filepath contents = do   putStrLnStdOut $ "Testing " <> filepath-  let-    (uu_lex, uu_lex_errors) = Interface.lexUU lintSettings contents-    (_uu_ast, uu_parseErrs) = Interface.parseUU uu_lex -  unless (null uu_lex_errors) $ do-    putStrLnStdOut $-      "Errors when trying to lex '"-        ++ filepath-        ++ "' with uu-parsinglib lexer!"-    mapM_ (putStrLnStdOut . show) uu_lex_errors--  unless (null uu_parseErrs) $ do-    putStrLnStdOut $-      "Errors when trying to parse '"-        ++ filepath-        ++ "' with uu-parsinglib parser!"-    mapM_ (putStrLnStdOut . show) uu_parseErrs-   logFormat <- getLogFormat lintSettings.log_format    case Interface.lex lintSettings filepath contents of@@ -305,25 +286,17 @@       case Interface.parse lintSettings filepath tokens of         Left msgs -> do           putStrLnStdOut $-            "Errors when trying to parse '" ++ filepath ++ "' with parsec parser!"+            "Errors when trying to parse '" ++ filepath           mapM_ (emitLintMessage logFormat) msgs           pure $ ExitFailure 1         Right ast -> do           let             prettyprinted = Interface.prettyprint lintSettings ast-            (_uu_ast_pp, uu_parseErrs_pp) = UUP.parseGLuaFromString prettyprinted -          unless (null uu_parseErrs_pp) $ do-            putStrLnStdOut $-              "Errors when trying to parse '"-                ++ filepath-                ++ "' with uu-parsinglib parser after pretty print!"-            mapM_ (putStrLnStdOut . show) uu_parseErrs_pp--          case PSP.parseGLuaFromString prettyprinted of+          case Parser.parseGLuaFromString prettyprinted of             Left err -> do               putStrLnStdOut $-                "Errors when trying to parse '" ++ filepath ++ "' with parsec parser after pretty print!"+                "Errors when trying to parse '" ++ filepath ++ "' after pretty print!"                putStrLnStdOut $ show err               pure $ ExitFailure 1

@@ -1,6 +1,6 @@ cabal-version:      3.0 name:               glualint-version:            1.26.0+version:            1.27.0 synopsis:           Attempts to fix your syntax erroring Lua files. description:   Linter for Lua, specifically the variant used in Garry's mod.@@ -26,15 +26,14 @@ library   default-language: Haskell2010   build-depends:-    , aeson          >=2        && <3-    , base           >=4.5      && <5-    , bytestring     >=0.11     && <1-    , containers     >=0.6      && <1-    , parsec         >=3        && <4-    , pretty         >=1.1      && <1.2-    , uu-parsinglib  >=2.8      && <3-    , uuagc          >=0.9.40.3 && <0.10-    , uuagc-cabal    >=1.0.3.0  && <2+    , aeson        >=2        && <3+    , base         >=4.5      && <5+    , bytestring   >=0.11     && <1+    , containers   >=0.6      && <1+    , parsec       >=3        && <4+    , pretty       >=1.1      && <1.2+    , uuagc        >=0.9.40.3 && <0.10+    , uuagc-cabal  >=1.0.3.0  && <2    hs-source-dirs:   src   exposed-modules:@@ -45,8 +44,7 @@     GLua.Lexer     GLua.LineLimitParser     GLua.Parser-    GLua.PSLexer-    GLua.PSParser+    GLua.Position     GLua.TokenTypes     GLuaFixer.AG.ASTLint     GLuaFixer.AG.LexLint@@ -76,6 +74,19 @@     , glualint     , tasty         >=1.4 && <2     , tasty-golden  >=2.3 && <2.4++  default-language: Haskell2010++test-suite linttest+  type:             exitcode-stdio-1.0+  main-is:          Spec.hs+  hs-source-dirs:   tests/linttest+  build-depends:+    , base+    , bytestring+    , glualint+    , tasty        >=1.4  && <2+    , tasty-hunit  >=0.10 && <0.12    default-language: Haskell2010 

@@ -1,171 +1,137 @@++ {-# LANGUAGE DeriveGeneric #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-}---- UUAGC 0.9.55 (src/GLua/AG/AST.ag)+-- UUAGC 0.9.53.1 (src/GLua/AG/AST.ag) module GLua.AG.AST where  {-# LINE 10 "src/GLua/AG/AST.ag" #-} -import Data.Aeson-import GHC.Generics import GLua.AG.Token+import GLua.Position import GLua.TokenTypes ()-{-# LINE 15 "src/GLua/AG/AST.hs" #-}+import GHC.Generics+import Data.Aeson+{-# LINE 16 "src/GLua/AG/AST.hs" #-} -- AReturn ------------------------------------------------------data AReturn-  = AReturn (Region) (MExprList)-  | NoReturn-  deriving (Generic, Show)-+data AReturn = AReturn (Region) (MExprList)+             | NoReturn+             deriving ( Generic,Show) -- AST --------------------------------------------------------- data AST = AST (([MToken])) (Block)-  deriving (Generic, Show)-+         deriving ( Generic,Show) -- Args ---------------------------------------------------------data Args-  = ListArgs (MExprList)-  | TableArg (FieldList)-  | StringArg (MToken)-  deriving (Generic, Show)-+data Args = ListArgs (MExprList)+          | TableArg (FieldList)+          | StringArg (MToken)+          deriving ( Generic,Show) -- BinOp --------------------------------------------------------data BinOp-  = AOr-  | AAnd-  | ALT-  | AGT-  | ALEQ-  | AGEQ-  | ANEq-  | AEq-  | AConcatenate-  | APlus-  | BinMinus-  | AMultiply-  | ADivide-  | AModulus-  | APower-  deriving (Eq, Generic, Ord, Show)-+data BinOp = AOr+           | AAnd+           | ALT+           | AGT+           | ALEQ+           | AGEQ+           | ANEq+           | AEq+           | AConcatenate+           | APlus+           | BinMinus+           | AMultiply+           | ADivide+           | AModulus+           | APower+           deriving ( Eq,Generic,Ord,Show) -- Block --------------------------------------------------------data Block = Block (MStatList) (AReturn)-  deriving (Generic, Show)-+data Block = Block (Region) (MStatList) (AReturn)+           deriving ( Generic,Show) -- Declaration --------------------------------------------------type Declaration = (PrefixExp, MaybeMExpr)-+type Declaration = ( PrefixExp,MaybeMExpr) -- Else -------------------------------------------------------- type Else = Maybe (MElse)- -- ElseIf -------------------------------------------------------type ElseIf = (MExpr, Block)-+type ElseIf = ( MExpr,Block) -- ElseIfList -------------------------------------------------- type ElseIfList = [MElseIf]- -- Expr ---------------------------------------------------------data Expr-  = ANil-  | AFalse-  | ATrue-  | ANumber (String)-  | AString (MToken)-  | AVarArg-  | AnonymousFunc (([MToken])) (Block)-  | APrefixExpr (PrefixExp)-  | ATableConstructor (FieldList)-  | BinOpExpr (BinOp) (MExpr) (MExpr)-  | UnOpExpr (UnOp) (MExpr)-  deriving (Generic, Show)-+data Expr = ANil+          | AFalse+          | ATrue+          | ANumber (String)+          | AString (MToken)+          | AVarArg+          | AnonymousFunc (([MToken])) (Block)+          | APrefixExpr (PrefixExp)+          | ATableConstructor (FieldList)+          | BinOpExpr (BinOp) (MExpr) (MExpr)+          | UnOpExpr (UnOp) (MExpr)+          deriving ( Generic,Show) -- ExprSuffixList ---------------------------------------------- type ExprSuffixList = [PFExprSuffix]- -- Field --------------------------------------------------------data Field-  = ExprField (MExpr) (MExpr) (FieldSep)-  | NamedField (MToken) (MExpr) (FieldSep)-  | UnnamedField (MExpr) (FieldSep)-  deriving (Generic, Show)-+data Field = ExprField (MExpr) (MExpr) (FieldSep)+           | NamedField (MToken) (MExpr) (FieldSep)+           | UnnamedField (MExpr) (FieldSep)+           deriving ( Generic,Show) -- FieldList --------------------------------------------------- type FieldList = [Field]- -- FieldSep -----------------------------------------------------data FieldSep-  = CommaSep-  | SemicolonSep-  | NoSep-  deriving (Eq, Generic, Show)-+data FieldSep = CommaSep+              | SemicolonSep+              | NoSep+              deriving ( Eq,Generic,Show) -- FuncName ---------------------------------------------------- data FuncName = FuncName (([MToken])) ((Maybe MToken))-  deriving (Generic, Show)-+              deriving ( Generic,Show) -- MElse ------------------------------------------------------- data MElse = MElse (Region) (Block)-  deriving (Generic, Show)-+           deriving ( Generic,Show) -- MElseIf ----------------------------------------------------- data MElseIf = MElseIf (Region) (ElseIf)-  deriving (Generic, Show)-+             deriving ( Generic,Show) -- MExpr ------------------------------------------------------- data MExpr = MExpr (Region) (Expr)-  deriving (Generic, Show)-+           deriving ( Generic,Show) -- MExprList --------------------------------------------------- type MExprList = [MExpr]- -- MStat ------------------------------------------------------- data MStat = MStat (Region) (Stat)-  deriving (Generic, Show)-+           deriving ( Generic,Show) -- MStatList --------------------------------------------------- type MStatList = [MStat]- -- MaybeMExpr -------------------------------------------------- type MaybeMExpr = Maybe (MExpr)- -- PFExprSuffix -------------------------------------------------data PFExprSuffix-  = Call (Args)-  | MetaCall (MToken) (Args)-  | ExprIndex (MExpr)-  | DotIndex (MToken)-  deriving (Generic, Show)-+data PFExprSuffix = Call (Args)+                  | MetaCall (MToken) (Args)+                  | ExprIndex (MExpr)+                  | DotIndex (MToken)+                  deriving ( Generic,Show) -- PrefixExp ----------------------------------------------------data PrefixExp-  = PFVar (MToken) (ExprSuffixList)-  | ExprVar (MExpr) (ExprSuffixList)-  deriving (Generic, Show)-+data PrefixExp = PFVar (MToken) (ExprSuffixList)+               | ExprVar (MExpr) (ExprSuffixList)+               deriving ( Generic,Show) -- Stat ---------------------------------------------------------data Stat-  = Def (VarsList)-  | LocDef (VarsList)-  | AFuncCall (PrefixExp)-  | ALabel (MToken)-  | ABreak-  | AContinue-  | AGoto (MToken)-  | ADo (Block)-  | AWhile (MExpr) (Block)-  | ARepeat (Block) (MExpr)-  | AIf (MExpr) (Block) (ElseIfList) (Else)-  | ANFor (MToken) (MExpr) (MExpr) (MExpr) (Block)-  | AGFor (([MToken])) (MExprList) (Block)-  | AFunc (FuncName) (([MToken])) (Block)-  | ALocFunc (FuncName) (([MToken])) (Block)-  deriving (Generic, Show)-+data Stat = Def (VarsList)+          | LocDef (VarsList)+          | AFuncCall (PrefixExp)+          | ALabel (MToken)+          | ABreak+          | AContinue+          | AGoto (MToken)+          | ADo (Block)+          | AWhile (MExpr) (Block)+          | ARepeat (Block) (MExpr)+          | AIf (MExpr) (Block) (ElseIfList) (Else)+          | ANFor (MToken) (MExpr) (MExpr) (MExpr) (Block)+          | AGFor (([MToken])) (MExprList) (Block)+          | AFunc (FuncName) (([MToken])) (Block)+          | ALocFunc (FuncName) (([MToken])) (Block)+          deriving ( Generic,Show) -- UnOp ---------------------------------------------------------data UnOp-  = UnMinus-  | ANot-  | AHash-  deriving (Generic, Show)-+data UnOp = UnMinus+          | ANot+          | AHash+          deriving ( Generic,Show) -- VarsList ---------------------------------------------------- type VarsList = [Declaration]

@@ -1,7288 +1,8726 @@-{-# LANGUAGE DeriveGeneric #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- UUAGC 0.9.55 (src/GLua/AG/PrettyPrint.ag)-module GLua.AG.PrettyPrint where--{-# LINE 10 "src/GLua/AG/AST.ag" #-}--import Data.Aeson-import GHC.Generics-import GLua.AG.Token-import GLua.TokenTypes ()-{-# LINE 15 "src/GLua/AG/PrettyPrint.hs" #-}--{-# LINE 4 "src/GLua/AG/PrettyPrint.ag" #-}--import Data.List (foldl', isInfixOf)-import Data.Maybe-import Debug.Trace-import GLua.AG.AST-import GLua.TokenTypes-import Text.Parsec-import Text.Parsec.Error-import Text.ParserCombinators.UU.BasicInstances hiding (pos)-import Text.PrettyPrint hiding (braces, brackets, parens)-import Prelude hiding ((<>))-{-# LINE 29 "src/GLua/AG/PrettyPrint.hs" #-}-{-# LINE 19 "src/GLua/AG/PrettyPrint.ag" #-}--tok :: MToken -> Doc-tok (MToken _ t) = zeroWidthText . show $ t--printList :: (a -> Doc) -> String -> [a] -> Doc-printList _ _ [] = empty-printList f sep' (e : es) = (f e) <> g es-  where-    g [] = empty-    g (e' : es') = zeroWidthText sep' <> (f e') <> g es'--data IsEmpty = IsEmpty | NonEmpty--fromEmpty :: IsEmpty -> Bool-fromEmpty IsEmpty = True-fromEmpty NonEmpty = False--toEmpty :: Bool -> IsEmpty-toEmpty b = if b then IsEmpty else NonEmpty--data PrettyPrintConfig = PPConfig-  { spaceAfterParens :: Bool-  , spaceAfterBrackets :: Bool-  , spaceAfterBraces :: Bool-  , spaceEmptyParens :: Bool-  , spaceEmptyBraces :: Bool-  , spaceAfterLabel :: Bool-  , spaceBeforeComma :: Bool-  , spaceAfterComma :: Bool-  , semicolons :: Bool-  , cStyle :: Bool-  , removeRedundantParens :: Bool-  , minimizeParens :: Bool-  , assumeOperatorAssociativity :: Bool-  , indentation :: String-  }--defaultPPConfig :: PrettyPrintConfig-defaultPPConfig =-  PPConfig-    { spaceAfterParens = False-    , spaceAfterBrackets = False-    , spaceAfterBraces = False-    , spaceEmptyParens = False-    , spaceEmptyBraces = False-    , spaceAfterLabel = False-    , spaceBeforeComma = False-    , spaceAfterComma = True-    , semicolons = False-    , cStyle = False-    , removeRedundantParens = True-    , assumeOperatorAssociativity = True-    , minimizeParens = False-    , indentation = "    "-    }--metaDoc :: Maybe MToken -> Doc-metaDoc (Just m) = zchr ':' <> tok m-metaDoc Nothing = empty--printVarList :: [(PrefixExp, Maybe MExpr)] -> Doc-printVarList vars =-  printList pp_prefixexp ", " (map fst vars)-    <-> zchr '='-    <-> printList pp_mexpr ", " (catMaybes . map snd $ vars)--printStats :: [MStat] -> Int -> Doc-printStats [] _ = empty-printStats (x : xs) i = nest (i * 4) (pp_mstat x i) $+$ printStats xs i--printElIfs :: [(MExpr, Block)] -> Int -> Doc-printElIfs [] _ = empty-printElIfs ((e, b) : es) i =-  zeroWidthText "elseif"-    <-> pp_mexpr e-    <-> zeroWidthText "then"-    $+$ pp_block b i-    $+$ printElIfs es i--printEls :: Maybe Block -> Int -> Doc-printEls Nothing _ = empty-printEls (Just b) i = zeroWidthText "else" $+$ pp_block b i--renderPos :: LineColPos -> String-renderPos (LineColPos l c _) = "line " ++ show (succ l) ++ ", column " ++ show (succ c)--renderRegion :: Region -> String-renderRegion (Region l r) = renderPos l ++ " - " ++ renderPos r--renderSourcePos :: SourcePos -> String-renderSourcePos sp =-  "line "-    ++ (show . succ . sourceLine $ sp)-    ++ ", column "-    ++ (show . succ . sourceColumn $ sp)--getMStatPos :: MStat -> String-getMStatPos (MStat p _) = renderRegion p--getAReturnPos :: AReturn -> String-getAReturnPos (AReturn p _) = renderRegion p-getAReturnPos NoReturn = "<unknown>"--getMExprPos :: MExpr -> String-getMExprPos (MExpr p _) = renderRegion p--renderError :: Error LineColPos -> String-renderError (Inserted str pos strs) =-  renderPos pos-    ++ ": Inserted '"-    ++ str-    ++ "'."-    ++ render_expecting strs-renderError (Deleted str pos strs) =-  renderPos pos-    ++ ": Removed '"-    ++ str-    ++ "'. "-    ++ render_expecting strs-renderError (Replaced str1 str2 pos strs) =-  renderPos pos-    ++ ": Replaced '"-    ++ str1-    ++ "' with '"-    ++ str2-    ++ "' at "-    ++ renderPos pos-    ++ render_expecting strs-renderError (DeletedAtEnd str) =-  "Deleted '"-    ++ str-    ++ "' at the end of the Lua file because the parser doesn't know what to do with it."--render_expecting :: [String] -> String-render_expecting [a] = "Parser expected a " ++ a-render_expecting (a : as) = "Parser expected one of [" ++ a ++ concat (map (", " ++) as) ++ "]"-render_expecting [] = "Parser expected nothing"--renderPSError :: ParseError -> String-renderPSError ps =-  map replNL-    . showErrorMessages-      "or"-      "unknown parse error"-      "expecting"-      "unexpected"-      "end of input"-    . errorMessages-    $ ps-  where-    replNL '\n' = ' '-    replNL c = c---- | Render comments on multiple lines-renderMLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc-renderMLComments conf ind toks =-  foldl' ($+$) empty . map (indent conf ind . tok . convertComment conf) $ toks---- | Render comments, and prefer having them on a single line. It may not print comments on the same--- line if that would cause a syntax error (e.g. a multiline comment after a single line comment)-renderSLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc-renderSLComments conf ind toks = foldl' combine empty . map (convertComment conf) $ toks-  where-    combine :: Doc -> MToken -> Doc-    combine acc mt@(MToken _pos t) =-      case t of-        -- Block comments after single line comments cannot be printed on the same line, as that-        -- would cause a syntax error, e.g. in this case:--        -- foo = { -- single line comment-        -- --[[multiline-        -- comment-        -- ]]-        -- }-        -- Make sure in these cases the comment is printed on a new line, rather than on the-        -- same line-        DashBlockComment _depth comment-          | '\n' `elem` comment ->-              acc $+$ (indent conf ind $ tok mt)-        SlashBlockComment comment-          | '\n' `elem` comment ->-              acc $+$ (indent conf ind $ tok mt)-        _ -> acc <-> tok mt--convertComment :: PrettyPrintConfig -> MToken -> MToken-convertComment conf (MToken p t) = MToken p $ convert' t-  where-    convert' :: Token -> Token-    convert' = if cStyle conf then cComment else luaComment--    luaComment :: Token -> Token-    luaComment (SlashComment s) = DashComment s-    luaComment (SlashBlockComment s) = DashBlockComment (lastBracket s) s-    luaComment t' = t'--    -- converting /*]*/ would end up in --[[]]] when plainly converted-    -- Deepen the block comment by 1 if that's the case-    lastBracket :: String -> Int-    lastBracket [] = 0-    lastBracket s = if last s == ']' then 1 else 0--    cComment :: Token -> Token-    cComment (DashComment s) = SlashComment s-    cComment (DashBlockComment _ s) = SlashBlockComment s-    cComment t' = t'--indent :: PrettyPrintConfig -> Int -> Doc -> Doc-indent conf n = (<>) $ zeroWidthText (concat . replicate n $ indentation conf)--parens :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc-parens conf ie doc = zchr '(' `sep'` doc `sep'` zchr ')'-  where-    sep' :: Doc -> Doc -> Doc-    sep' =-      if spaceAfterParens conf && (not (fromEmpty ie) || spaceEmptyParens conf)-        then (<->)-        else (<>)--brackets :: PrettyPrintConfig -> Doc -> Doc-brackets conf doc = zchr '[' `sep'` doc `sep'` zchr ']'-  where-    sep' :: Doc -> Doc -> Doc-    sep' = if spaceAfterBrackets conf then (<->) else (<>)--braces :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc-braces conf ie doc = zchr '{' `sep'` doc `sep'` zchr '}'-  where-    sep' :: Doc -> Doc -> Doc-    sep' =-      if spaceAfterBraces conf && (not (fromEmpty ie) || spaceEmptyBraces conf)-        then (<->)-        else (<>)---- Zero width char-zchr :: Char -> Doc-zchr c = zeroWidthText [c]---- Zero width <+>-infixl 6 <->-(<->) :: Doc -> Doc -> Doc-a <-> b-  | a == empty = b-  | b == empty = a-  | otherwise = a <> zchr ' ' <> b---- Operator levels, where level 1 is the lowest level, and level 8 is the highest one--- See http://www.lua.org/manual/5.2/manual.html#3.4.7-data OperatorLevel-  = -- At the top level, there is no assigned operator level yet. This serves as a bottom value.-    TopLevelExpression-  | OperatorLevel1-  | OperatorLevel2-  | OperatorLevel3-  | OperatorLevel4-  | OperatorLevel5-  | OperatorLevel6-  | OperatorLevel7-  | OperatorLevel8-  deriving (Eq, Ord)---- | Returns true when any of the comments contain the string "format: multiline"-commentsForceMultiline :: [MToken] -> Bool-commentsForceMultiline commentTokens = any containsFormatMultiline commentTokens-  where-    containsFormatMultiline :: MToken -> Bool-    containsFormatMultiline (MToken _pos t) = case t of-      DashComment comment -> stringForcesFormat comment-      DashBlockComment _ comment -> stringForcesFormat comment-      SlashComment comment -> stringForcesFormat comment-      SlashBlockComment comment -> stringForcesFormat comment-      _ -> False--    stringForcesFormat :: String -> Bool-    stringForcesFormat s = "format: multiline" `isInfixOf` s--{-# LINE 304 "src/GLua/AG/PrettyPrint.hs" #-}--{-# LINE 1235 "src/GLua/AG/PrettyPrint.ag" #-}--pp_block :: Block -> Int -> Doc-pp_block p i = pretty_Syn_Block (wrap_Block (sem_Block p) (emptyInh_Block{indent_Inh_Block = i}))--pp_mstat :: MStat -> Int -> Doc-pp_mstat p i = pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat{indent_Inh_MStat = i})--pp_prefixexp :: PrefixExp -> Doc-pp_prefixexp p = pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp)--pp_pfexprsuffix :: PFExprSuffix -> Doc-pp_pfexprsuffix p =-  pretty_Syn_PFExprSuffix (wrap_PFExprSuffix (sem_PFExprSuffix p) emptyInh_PFExprSuffix)--pp_field :: Field -> Doc-pp_field p = pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field)--pp_mexpr :: MExpr -> Doc-pp_mexpr p = pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr)--prettyprint :: AST -> String-prettyprint p = render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST)--prettyprintConf :: PrettyPrintConfig -> AST -> String-prettyprintConf conf p =-  render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST{ppconf_Inh_AST = conf})--renderBlock :: Block -> String-renderBlock p = render $ pretty_Syn_Block (wrap_Block (sem_Block p) emptyInh_Block)--renderStat :: Stat -> String-renderStat p = render $ pretty_Syn_Stat (wrap_Stat (sem_Stat p) emptyInh_Stat)--renderMStat :: MStat -> String-renderMStat p = render $ pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat)--renderAReturn :: AReturn -> String-renderAReturn p = render $ pretty_Syn_AReturn (wrap_AReturn (sem_AReturn p) emptyInh_AReturn)--renderFuncName :: FuncName -> String-renderFuncName p = render $ pretty_Syn_FuncName (wrap_FuncName (sem_FuncName p) emptyInh_FuncName)--renderPrefixExp :: PrefixExp -> String-renderPrefixExp p =-  render $ pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp)--renderExpr :: Expr -> String-renderExpr p = render $ pretty_Syn_Expr (wrap_Expr (sem_Expr p) emptyInh_Expr)--renderMExpr :: MExpr -> String-renderMExpr p = render $ pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr)--renderArgs :: Args -> String-renderArgs p = render $ pretty_Syn_Args (wrap_Args (sem_Args p) emptyInh_Args)--renderField :: Field -> String-renderField p = render $ pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field)--emptyInh_Field :: Inh_Field-emptyInh_Field =-  Inh_Field-    { comments_Inh_Field = []-    , forceMultiline_Inh_Field = False-    , indent_Inh_Field = 0-    , ppconf_Inh_Field = defaultPPConfig-    }--emptyInh_Args :: Inh_Args-emptyInh_Args =-  Inh_Args-    { comments_Inh_Args = []-    , forceMultiline_Inh_Args = False-    , indent_Inh_Args = 0-    , ppconf_Inh_Args = defaultPPConfig-    }--emptyInh_MExpr :: Inh_MExpr-emptyInh_MExpr =-  Inh_MExpr-    { comments_Inh_MExpr = []-    , forceMultiline_Inh_MExpr = False-    , indent_Inh_MExpr = 0-    , parentOperatorAssociative_Inh_MExpr = True-    , parentOperatorPrecedence_Inh_MExpr = TopLevelExpression-    , ppconf_Inh_MExpr = defaultPPConfig-    }--emptyInh_Expr :: Inh_Expr-emptyInh_Expr =-  Inh_Expr-    { comments_Inh_Expr = []-    , forceMultiline_Inh_Expr = False-    , indent_Inh_Expr = 0-    , parentOperatorAssociative_Inh_Expr = True-    , parentOperatorPrecedence_Inh_Expr = TopLevelExpression-    , ppconf_Inh_Expr = defaultPPConfig-    , statRegion_Inh_Expr = emptyRg-    }--emptyInh_PrefixExp :: Inh_PrefixExp-emptyInh_PrefixExp =-  Inh_PrefixExp-    { comments_Inh_PrefixExp = []-    , forceMultiline_Inh_PrefixExp = False-    , indent_Inh_PrefixExp = 0-    , parentOperatorAssociative_Inh_PrefixExp = True-    , parentOperatorPrecedence_Inh_PrefixExp = TopLevelExpression-    , ppconf_Inh_PrefixExp = defaultPPConfig-    }--emptyInh_FuncName :: Inh_FuncName-emptyInh_FuncName =-  Inh_FuncName-    { comments_Inh_FuncName = []-    , indent_Inh_FuncName = 0-    , ppconf_Inh_FuncName = defaultPPConfig-    }--emptyInh_AReturn :: Inh_AReturn-emptyInh_AReturn =-  Inh_AReturn-    { comments_Inh_AReturn = []-    , forceMultiline_Inh_AReturn = False-    , indent_Inh_AReturn = 0-    , ppconf_Inh_AReturn = defaultPPConfig-    }--emptyInh_MStat :: Inh_MStat-emptyInh_MStat =-  Inh_MStat-    { comments_Inh_MStat = []-    , forceMultiline_Inh_MStat = False-    , indent_Inh_MStat = 0-    , isLastStatement_Inh_MStat = False-    , ppconf_Inh_MStat = defaultPPConfig-    , wouldBeAmbiguousWithoutSemicolon_Inh_MStat = False-    }--emptyInh_Stat :: Inh_Stat-emptyInh_Stat =-  Inh_Stat-    { comments_Inh_Stat = []-    , forceMultiline_Inh_Stat = False-    , indent_Inh_Stat = 0-    , isLastStatement_Inh_Stat = False-    , ppconf_Inh_Stat = defaultPPConfig-    , statRegion_Inh_Stat = emptyRg-    , wouldBeAmbiguousWithoutSemicolon_Inh_Stat = False-    }--emptyInh_Block :: Inh_Block-emptyInh_Block =-  Inh_Block-    { comments_Inh_Block = []-    , forceMultiline_Inh_Block = False-    , indent_Inh_Block = 0-    , ppconf_Inh_Block = defaultPPConfig-    , statRegion_Inh_Block = emptyRg-    }--emptyInh_AST :: Inh_AST-emptyInh_AST =-  Inh_AST-    { indent_Inh_AST = 0-    , ppconf_Inh_AST = defaultPPConfig-    }--emptyInh_PFExprSuffix :: Inh_PFExprSuffix-emptyInh_PFExprSuffix =-  Inh_PFExprSuffix-    { comments_Inh_PFExprSuffix = []-    , forceMultiline_Inh_PFExprSuffix = False-    , indent_Inh_PFExprSuffix = 0-    , ppconf_Inh_PFExprSuffix = defaultPPConfig-    }--{-# LINE 484 "src/GLua/AG/PrettyPrint.hs" #-}--- AReturn -------------------------------------------------------- cata-sem_AReturn-  :: AReturn-  -> T_AReturn-sem_AReturn (AReturn _pos _values) =-  (sem_AReturn_AReturn _pos (sem_MExprList _values))-sem_AReturn (NoReturn) =-  (sem_AReturn_NoReturn)---- semantic domain-type T_AReturn =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), AReturn, Bool, Doc, Int)-data Inh_AReturn = Inh_AReturn {comments_Inh_AReturn :: ([MToken]), forceMultiline_Inh_AReturn :: Bool, indent_Inh_AReturn :: Int, ppconf_Inh_AReturn :: PrettyPrintConfig}-data Syn_AReturn = Syn_AReturn {comments_Syn_AReturn :: ([MToken]), copy_Syn_AReturn :: AReturn, isMultiline_Syn_AReturn :: Bool, pretty_Syn_AReturn :: Doc, statementCount_Syn_AReturn :: Int}-wrap_AReturn-  :: T_AReturn-  -> Inh_AReturn-  -> Syn_AReturn-wrap_AReturn sem (Inh_AReturn _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty, _lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_AReturn _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty _lhsOstatementCount)-  )-sem_AReturn_AReturn-  :: Region-  -> T_MExprList-  -> T_AReturn-sem_AReturn_AReturn pos_ values_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _valuesOcomments :: ([MToken])-            _lhsOcomments :: ([MToken])-            _valuesOforceMultiline :: Bool-            _valuesOsomeElementsInListAreMultiline :: Bool-            _lhsOstatementCount :: Int-            _lhsOcopy :: AReturn-            _valuesOindent :: Int-            _valuesOppconf :: PrettyPrintConfig-            _valuesIcomments :: ([MToken])-            _valuesIcopy :: MExprList-            _valuesIisAssociative :: Bool-            _valuesIisLast :: Bool-            _valuesIisMultiline :: Bool-            _valuesIpos :: Region-            _valuesIprecedence :: OperatorLevel-            _valuesIpretty :: Doc-            _lhsOpretty =-              ( renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore)-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "return")-                    <-> _valuesIpretty-                    <> _semicolon-                      <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter)-              )-            _lhsOisMultiline =-              ( _valuesIisMultiline-                  || not (null $ fst _commentsBefore)-                  || not (null $ fst _commentsAfter)-              )-            _semicolon =-              ( if semicolons _lhsIppconf then zchr ';' else empty-              )-            _commentsBefore =-              ( span (\(MToken pos _) -> pos `before` pos_) _lhsIcomments-              )-            _valuesOcomments =-              ( snd _commentsBefore-              )-            _commentsAfter =-              ( span (\(MToken pos _) -> pos `beforeOrOnLine` (rgOr _valuesIpos pos_)) _valuesIcomments-              )-            _lhsOcomments =-              ( snd _commentsAfter-              )-            _valuesOforceMultiline =-              ( False-              )-            _valuesOsomeElementsInListAreMultiline =-              ( False-              )-            _lhsOstatementCount =-              ( 1-              )-            _copy =-              ( AReturn pos_ _valuesIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _valuesOindent =-              ( _lhsIindent-              )-            _valuesOppconf =-              ( _lhsIppconf-              )-            (_valuesIcomments, _valuesIcopy, _valuesIisAssociative, _valuesIisLast, _valuesIisMultiline, _valuesIpos, _valuesIprecedence, _valuesIpretty) =-              values_ _valuesOcomments _valuesOforceMultiline _valuesOindent _valuesOppconf _valuesOsomeElementsInListAreMultiline-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty, _lhsOstatementCount)-        )-  )-sem_AReturn_NoReturn :: T_AReturn-sem_AReturn_NoReturn =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstatementCount :: Int-            _lhsOisMultiline :: Bool-            _lhsOcopy :: AReturn-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOstatementCount =-              ( 0-              )-            _lhsOisMultiline =-              ( False-              )-            _copy =-              ( NoReturn-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty, _lhsOstatementCount)-        )-  )---- AST ------------------------------------------------------------ cata-sem_AST-  :: AST-  -> T_AST-sem_AST (AST _comments _chunk) =-  (sem_AST_AST _comments (sem_Block _chunk))---- semantic domain-type T_AST =-  Int-  -> PrettyPrintConfig-  -> (AST, Bool, Doc)-data Inh_AST = Inh_AST {indent_Inh_AST :: Int, ppconf_Inh_AST :: PrettyPrintConfig}-data Syn_AST = Syn_AST {copy_Syn_AST :: AST, isMultiline_Syn_AST :: Bool, pretty_Syn_AST :: Doc}-wrap_AST-  :: T_AST-  -> Inh_AST-  -> Syn_AST-wrap_AST sem (Inh_AST _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcopy, _lhsOisMultiline, _lhsOpretty) = sem _lhsIindent _lhsIppconf-    in-      (Syn_AST _lhsOcopy _lhsOisMultiline _lhsOpretty)-  )-sem_AST_AST-  :: ([MToken])-  -> T_Block-  -> T_AST-sem_AST_AST comments_ chunk_ =-  ( \_lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _chunkOcomments :: ([MToken])-            _chunkOstatRegion :: Region-            _chunkOforceMultiline :: Bool-            _lhsOcopy :: AST-            _chunkOindent :: Int-            _chunkOppconf :: PrettyPrintConfig-            _chunkIcomments :: ([MToken])-            _chunkIcopy :: Block-            _chunkIisMultiline :: Bool-            _chunkIpretty :: Doc-            _chunkIstatementCount :: Int-            _lhsOpretty =-              ( _chunkIpretty $+$ _prettyComments-              )-            _lhsOisMultiline =-              ( _chunkIisMultiline-              )-            _prettyComments =-              ( renderMLComments _lhsIppconf _lhsIindent _chunkIcomments-              )-            _chunkOcomments =-              ( comments_-              )-            _chunkOstatRegion =-              ( emptyRg-              )-            _chunkOforceMultiline =-              ( False-              )-            _copy =-              ( AST comments_ _chunkIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _chunkOindent =-              ( _lhsIindent-              )-            _chunkOppconf =-              ( _lhsIppconf-              )-            (_chunkIcomments, _chunkIcopy, _chunkIisMultiline, _chunkIpretty, _chunkIstatementCount) =-              chunk_ _chunkOcomments _chunkOforceMultiline _chunkOindent _chunkOppconf _chunkOstatRegion-          in-            (_lhsOcopy, _lhsOisMultiline, _lhsOpretty)-        )-  )---- Args ----------------------------------------------------------- cata-sem_Args-  :: Args-  -> T_Args-sem_Args (ListArgs _args) =-  (sem_Args_ListArgs (sem_MExprList _args))-sem_Args (TableArg _arg) =-  (sem_Args_TableArg (sem_FieldList _arg))-sem_Args (StringArg _arg) =-  (sem_Args_StringArg _arg)---- semantic domain-type T_Args =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), Args, Bool, Doc)-data Inh_Args = Inh_Args {comments_Inh_Args :: ([MToken]), forceMultiline_Inh_Args :: Bool, indent_Inh_Args :: Int, ppconf_Inh_Args :: PrettyPrintConfig}-data Syn_Args = Syn_Args {comments_Syn_Args :: ([MToken]), copy_Syn_Args :: Args, isMultiline_Syn_Args :: Bool, pretty_Syn_Args :: Doc}-wrap_Args-  :: T_Args-  -> Inh_Args-  -> Syn_Args-wrap_Args sem (Inh_Args _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_Args _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)-  )-sem_Args_ListArgs-  :: T_MExprList-  -> T_Args-sem_Args_ListArgs args_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _argsOindent :: Int-            _argsOsomeElementsInListAreMultiline :: Bool-            _lhsOcopy :: Args-            _lhsOcomments :: ([MToken])-            _argsOcomments :: ([MToken])-            _argsOforceMultiline :: Bool-            _argsOppconf :: PrettyPrintConfig-            _argsIcomments :: ([MToken])-            _argsIcopy :: MExprList-            _argsIisAssociative :: Bool-            _argsIisLast :: Bool-            _argsIisMultiline :: Bool-            _argsIpos :: Region-            _argsIprecedence :: OperatorLevel-            _argsIpretty :: Doc-            _lhsOpretty =-              ( if _argsIisMultiline-                  then-                    zchr '('-                      $+$ _argsIpretty-                      $+$ indent _lhsIppconf _lhsIindent (zchr ')')-                  else parens _lhsIppconf _emptyParams _argsIpretty-              )-            _lhsOisMultiline =-              ( _argsIisMultiline-              )-            _emptyParams =-              ( toEmpty $ null _argsIcopy-              )-            _argsOindent =-              ( if _argsIisMultiline then _lhsIindent + 1 else 0-              )-            _argsOsomeElementsInListAreMultiline =-              ( False-              )-            _copy =-              ( ListArgs _argsIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _argsIcomments-              )-            _argsOcomments =-              ( _lhsIcomments-              )-            _argsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _argsOppconf =-              ( _lhsIppconf-              )-            (_argsIcomments, _argsIcopy, _argsIisAssociative, _argsIisLast, _argsIisMultiline, _argsIpos, _argsIprecedence, _argsIpretty) =-              args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf _argsOsomeElementsInListAreMultiline-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty)-        )-  )-sem_Args_TableArg-  :: T_FieldList-  -> T_Args-sem_Args_TableArg arg_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _argOindent :: Int-            _argOsomeElementsInListAreMultiline :: Bool-            _lhsOcopy :: Args-            _lhsOcomments :: ([MToken])-            _argOcomments :: ([MToken])-            _argOforceMultiline :: Bool-            _argOppconf :: PrettyPrintConfig-            _argIcomments :: ([MToken])-            _argIcopy :: FieldList-            _argIisMultiline :: Bool-            _argIisNil :: Bool-            _argIpretty :: Doc-            _lhsOpretty =-              ( if _argIisMultiline then _prettyMulti else _prettySingle-              )-            _lhsOisMultiline =-              ( _argIisMultiline-              )-            _prettyMulti =-              ( zchr '{' $+$ _argIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}')-              )-            _prettySingle =-              ( braces _lhsIppconf _emptyContents _argIpretty-              )-            _emptyContents =-              ( toEmpty $ null _argIcopy-              )-            _argOindent =-              ( _lhsIindent + (if _argIisMultiline then 1 else 0)-              )-            _argOsomeElementsInListAreMultiline =-              ( False-              )-            _copy =-              ( TableArg _argIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _argIcomments-              )-            _argOcomments =-              ( _lhsIcomments-              )-            _argOforceMultiline =-              ( _lhsIforceMultiline-              )-            _argOppconf =-              ( _lhsIppconf-              )-            (_argIcomments, _argIcopy, _argIisMultiline, _argIisNil, _argIpretty) =-              arg_ _argOcomments _argOforceMultiline _argOindent _argOppconf _argOsomeElementsInListAreMultiline-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty)-        )-  )-sem_Args_StringArg-  :: MToken-  -> T_Args-sem_Args_StringArg arg_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOcopy :: Args-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( tok arg_-              )-            _lhsOisMultiline =-              ( False-              )-            _copy =-              ( StringArg arg_-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty)-        )-  )---- BinOp ---------------------------------------------------------- cata-sem_BinOp-  :: BinOp-  -> T_BinOp-sem_BinOp (AOr) =-  (sem_BinOp_AOr)-sem_BinOp (AAnd) =-  (sem_BinOp_AAnd)-sem_BinOp (ALT) =-  (sem_BinOp_ALT)-sem_BinOp (AGT) =-  (sem_BinOp_AGT)-sem_BinOp (ALEQ) =-  (sem_BinOp_ALEQ)-sem_BinOp (AGEQ) =-  (sem_BinOp_AGEQ)-sem_BinOp (ANEq) =-  (sem_BinOp_ANEq)-sem_BinOp (AEq) =-  (sem_BinOp_AEq)-sem_BinOp (AConcatenate) =-  (sem_BinOp_AConcatenate)-sem_BinOp (APlus) =-  (sem_BinOp_APlus)-sem_BinOp (BinMinus) =-  (sem_BinOp_BinMinus)-sem_BinOp (AMultiply) =-  (sem_BinOp_AMultiply)-sem_BinOp (ADivide) =-  (sem_BinOp_ADivide)-sem_BinOp (AModulus) =-  (sem_BinOp_AModulus)-sem_BinOp (APower) =-  (sem_BinOp_APower)---- semantic domain-type T_BinOp =-  ([MToken])-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), BinOp, Bool, Bool, OperatorLevel, Doc)-data Inh_BinOp = Inh_BinOp {comments_Inh_BinOp :: ([MToken]), indent_Inh_BinOp :: Int, ppconf_Inh_BinOp :: PrettyPrintConfig}-data Syn_BinOp = Syn_BinOp {comments_Syn_BinOp :: ([MToken]), copy_Syn_BinOp :: BinOp, isAssociative_Syn_BinOp :: Bool, isMultiline_Syn_BinOp :: Bool, precedence_Syn_BinOp :: OperatorLevel, pretty_Syn_BinOp :: Doc}-wrap_BinOp-  :: T_BinOp-  -> Inh_BinOp-  -> Syn_BinOp-wrap_BinOp sem (Inh_BinOp _lhsIcomments _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf-    in-      (Syn_BinOp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)-  )-sem_BinOp_AOr :: T_BinOp-sem_BinOp_AOr =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText (if cStyle _lhsIppconf then "||" else "or")-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel1-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( AOr-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_AAnd :: T_BinOp-sem_BinOp_AAnd =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText (if cStyle _lhsIppconf then "&&" else "and")-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel2-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( AAnd-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_ALT :: T_BinOp-sem_BinOp_ALT =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "<"-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel3-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( ALT-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_AGT :: T_BinOp-sem_BinOp_AGT =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText ">"-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel3-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( AGT-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_ALEQ :: T_BinOp-sem_BinOp_ALEQ =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "<="-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel3-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( ALEQ-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_AGEQ :: T_BinOp-sem_BinOp_AGEQ =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText ">="-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel3-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( AGEQ-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_ANEq :: T_BinOp-sem_BinOp_ANEq =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText (if cStyle _lhsIppconf then "!=" else "~=")-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel3-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( ANEq-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_AEq :: T_BinOp-sem_BinOp_AEq =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "=="-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel3-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( AEq-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_AConcatenate :: T_BinOp-sem_BinOp_AConcatenate =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText ".."-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel4-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( AConcatenate-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_APlus :: T_BinOp-sem_BinOp_APlus =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "+"-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel5-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( APlus-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_BinMinus :: T_BinOp-sem_BinOp_BinMinus =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "-"-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel5-              )-            _lhsOisAssociative =-              ( False-              )-            _copy =-              ( BinMinus-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_AMultiply :: T_BinOp-sem_BinOp_AMultiply =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "*"-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel6-              )-            _lhsOisAssociative =-              ( True-              )-            _copy =-              ( AMultiply-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_ADivide :: T_BinOp-sem_BinOp_ADivide =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "/"-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel6-              )-            _lhsOisAssociative =-              ( False-              )-            _copy =-              ( ADivide-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_AModulus :: T_BinOp-sem_BinOp_AModulus =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "%"-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel6-              )-            _lhsOisAssociative =-              ( False-              )-            _copy =-              ( AModulus-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_BinOp_APower :: T_BinOp-sem_BinOp_APower =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOcopy :: BinOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "^"-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _lhsOisAssociative =-              ( False-              )-            _copy =-              ( APower-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )---- Block ---------------------------------------------------------- cata-sem_Block-  :: Block-  -> T_Block-sem_Block (Block _stats _ret) =-  (sem_Block_Block (sem_MStatList _stats) (sem_AReturn _ret))---- semantic domain-type T_Block =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> Region-  -> (([MToken]), Block, Bool, Doc, Int)-data Inh_Block = Inh_Block {comments_Inh_Block :: ([MToken]), forceMultiline_Inh_Block :: Bool, indent_Inh_Block :: Int, ppconf_Inh_Block :: PrettyPrintConfig, statRegion_Inh_Block :: Region}-data Syn_Block = Syn_Block {comments_Syn_Block :: ([MToken]), copy_Syn_Block :: Block, isMultiline_Syn_Block :: Bool, pretty_Syn_Block :: Doc, statementCount_Syn_Block :: Int}-wrap_Block-  :: T_Block-  -> Inh_Block-  -> Syn_Block-wrap_Block sem (Inh_Block _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty, _lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion-    in-      (Syn_Block _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty _lhsOstatementCount)-  )-sem_Block_Block-  :: T_MStatList-  -> T_AReturn-  -> T_Block-sem_Block_Block stats_ ret_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstatementCount :: Int-            _lhsOcopy :: Block-            _lhsOcomments :: ([MToken])-            _lhsOisMultiline :: Bool-            _statsOcomments :: ([MToken])-            _statsOforceMultiline :: Bool-            _statsOindent :: Int-            _statsOppconf :: PrettyPrintConfig-            _statsOstatRegion :: Region-            _retOcomments :: ([MToken])-            _retOforceMultiline :: Bool-            _retOindent :: Int-            _retOppconf :: PrettyPrintConfig-            _statsIcomments :: ([MToken])-            _statsIcopy :: MStatList-            _statsIisLast :: Bool-            _statsIisMultiline :: Bool-            _statsIpretty :: Doc-            _statsIstartsWithExprPrefixExpression :: Bool-            _statsIstatementCount :: Int-            _retIcomments :: ([MToken])-            _retIcopy :: AReturn-            _retIisMultiline :: Bool-            _retIpretty :: Doc-            _retIstatementCount :: Int-            _lhsOpretty =-              ( if _isMultiline-                  then _statsIpretty $+$ _retIpretty-                  else _statsIpretty <-> _retIpretty-              )-            _statementCount =-              ( _statsIstatementCount + _retIstatementCount-              )-            _isMultiline =-              ( _statsIisMultiline || _retIisMultiline || _statementCount > 1-              )-            _lhsOstatementCount =-              ( _statementCount-              )-            _copy =-              ( Block _statsIcopy _retIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _retIcomments-              )-            _lhsOisMultiline =-              ( _isMultiline-              )-            _statsOcomments =-              ( _lhsIcomments-              )-            _statsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _statsOindent =-              ( _lhsIindent-              )-            _statsOppconf =-              ( _lhsIppconf-              )-            _statsOstatRegion =-              ( _lhsIstatRegion-              )-            _retOcomments =-              ( _statsIcomments-              )-            _retOforceMultiline =-              ( _lhsIforceMultiline-              )-            _retOindent =-              ( _lhsIindent-              )-            _retOppconf =-              ( _lhsIppconf-              )-            (_statsIcomments, _statsIcopy, _statsIisLast, _statsIisMultiline, _statsIpretty, _statsIstartsWithExprPrefixExpression, _statsIstatementCount) =-              stats_ _statsOcomments _statsOforceMultiline _statsOindent _statsOppconf _statsOstatRegion-            (_retIcomments, _retIcopy, _retIisMultiline, _retIpretty, _retIstatementCount) =-              ret_ _retOcomments _retOforceMultiline _retOindent _retOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty, _lhsOstatementCount)-        )-  )---- Declaration ---------------------------------------------------- cata-sem_Declaration-  :: Declaration-  -> T_Declaration-sem_Declaration (x1, x2) =-  (sem_Declaration_Tuple (sem_PrefixExp x1) (sem_MaybeMExpr x2))---- semantic domain-type T_Declaration =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), Declaration, Bool, Doc, Bool, Bool, Doc, Bool, Doc)-data Inh_Declaration = Inh_Declaration {comments_Inh_Declaration :: ([MToken]), forceMultiline_Inh_Declaration :: Bool, indent_Inh_Declaration :: Int, ppconf_Inh_Declaration :: PrettyPrintConfig}-data Syn_Declaration = Syn_Declaration {comments_Syn_Declaration :: ([MToken]), copy_Syn_Declaration :: Declaration, endsWithPrefixExpression_Syn_Declaration :: Bool, exprPretty_Syn_Declaration :: Doc, isDefined_Syn_Declaration :: Bool, isMultiline_Syn_Declaration :: Bool, pretty_Syn_Declaration :: Doc, startsWithExprPrefixExpression_Syn_Declaration :: Bool, varPretty_Syn_Declaration :: Doc}-wrap_Declaration-  :: T_Declaration-  -> Inh_Declaration-  -> Syn_Declaration-wrap_Declaration sem (Inh_Declaration _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOexprPretty, _lhsOisDefined, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_Declaration _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty)-  )-sem_Declaration_Tuple-  :: T_PrefixExp-  -> T_MaybeMExpr-  -> T_Declaration-sem_Declaration_Tuple x1_ x2_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOvarPretty :: Doc-            _lhsOexprPretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _x1OparentOperatorPrecedence :: OperatorLevel-            _x1OparentOperatorAssociative :: Bool-            _lhsOisDefined :: Bool-            _lhsOcopy :: Declaration-            _lhsOcomments :: ([MToken])-            _lhsOpretty :: Doc-            _x1Ocomments :: ([MToken])-            _x1OforceMultiline :: Bool-            _x1Oindent :: Int-            _x1Oppconf :: PrettyPrintConfig-            _x2Ocomments :: ([MToken])-            _x2OforceMultiline :: Bool-            _x2Oindent :: Int-            _x2Oppconf :: PrettyPrintConfig-            _x1Icomments :: ([MToken])-            _x1Icopy :: PrefixExp-            _x1IisAssociative :: Bool-            _x1IisLiteral :: Bool-            _x1IisMultiline :: Bool-            _x1Iprecedence :: OperatorLevel-            _x1Ipretty :: Doc-            _x1IstartsWithExprPrefixExpression :: Bool-            _x2Icomments :: ([MToken])-            _x2Icopy :: MaybeMExpr-            _x2IendsWithPrefixExpression :: Bool-            _x2IisAssociative :: Bool-            _x2IisDefined :: Bool-            _x2IisMultiline :: Bool-            _x2Iprecedence :: OperatorLevel-            _x2Ipretty :: Doc-            _lhsOvarPretty =-              ( _x1Ipretty-              )-            _lhsOexprPretty =-              ( _x2Ipretty-              )-            _lhsOstartsWithExprPrefixExpression =-              ( _x1IstartsWithExprPrefixExpression-              )-            _lhsOendsWithPrefixExpression =-              ( _x2IendsWithPrefixExpression-              )-            _lhsOisMultiline =-              ( _x1IisMultiline || _x2IisMultiline-              )-            _x1OparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _x1OparentOperatorAssociative =-              ( True-              )-            _lhsOisDefined =-              ( _x2IisDefined-              )-            _copy =-              ( (_x1Icopy, _x2Icopy)-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _x2Icomments-              )-            _lhsOpretty =-              ( _x2Ipretty-              )-            _x1Ocomments =-              ( _lhsIcomments-              )-            _x1OforceMultiline =-              ( _lhsIforceMultiline-              )-            _x1Oindent =-              ( _lhsIindent-              )-            _x1Oppconf =-              ( _lhsIppconf-              )-            _x2Ocomments =-              ( _x1Icomments-              )-            _x2OforceMultiline =-              ( _lhsIforceMultiline-              )-            _x2Oindent =-              ( _lhsIindent-              )-            _x2Oppconf =-              ( _lhsIppconf-              )-            (_x1Icomments, _x1Icopy, _x1IisAssociative, _x1IisLiteral, _x1IisMultiline, _x1Iprecedence, _x1Ipretty, _x1IstartsWithExprPrefixExpression) =-              x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf-            (_x2Icomments, _x2Icopy, _x2IendsWithPrefixExpression, _x2IisAssociative, _x2IisDefined, _x2IisMultiline, _x2Iprecedence, _x2Ipretty) =-              x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOexprPretty, _lhsOisDefined, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOvarPretty)-        )-  )---- Else ----------------------------------------------------------- cata-sem_Else-  :: Else-  -> T_Else-sem_Else (Prelude.Just x) =-  (sem_Else_Just (sem_MElse x))-sem_Else Prelude.Nothing =-  sem_Else_Nothing---- semantic domain-type T_Else =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> Region-  -> (([MToken]), Else, Bool, Bool, Region, Doc)-data Inh_Else = Inh_Else {comments_Inh_Else :: ([MToken]), forceMultiline_Inh_Else :: Bool, indent_Inh_Else :: Int, ppconf_Inh_Else :: PrettyPrintConfig, statRegion_Inh_Else :: Region}-data Syn_Else = Syn_Else {comments_Syn_Else :: ([MToken]), copy_Syn_Else :: Else, elsesExist_Syn_Else :: Bool, isMultiline_Syn_Else :: Bool, pos_Syn_Else :: Region, pretty_Syn_Else :: Doc}-wrap_Else-  :: T_Else-  -> Inh_Else-  -> Syn_Else-wrap_Else sem (Inh_Else _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOelsesExist, _lhsOisMultiline, _lhsOpos, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion-    in-      (Syn_Else _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)-  )-sem_Else_Just-  :: T_MElse-  -> T_Else-sem_Else_Just just_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOelsesExist :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: Else-            _lhsOcomments :: ([MToken])-            _lhsOpos :: Region-            _lhsOpretty :: Doc-            _justOcomments :: ([MToken])-            _justOforceMultiline :: Bool-            _justOindent :: Int-            _justOppconf :: PrettyPrintConfig-            _justOstatRegion :: Region-            _justIcomments :: ([MToken])-            _justIcopy :: MElse-            _justIelsesExist :: Bool-            _justIisMultiline :: Bool-            _justIpos :: Region-            _justIpretty :: Doc-            _lhsOelsesExist =-              ( True-              )-            _lhsOisMultiline =-              ( _justIisMultiline-              )-            _copy =-              ( Just _justIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _justIcomments-              )-            _lhsOpos =-              ( _justIpos-              )-            _lhsOpretty =-              ( _justIpretty-              )-            _justOcomments =-              ( _lhsIcomments-              )-            _justOforceMultiline =-              ( _lhsIforceMultiline-              )-            _justOindent =-              ( _lhsIindent-              )-            _justOppconf =-              ( _lhsIppconf-              )-            _justOstatRegion =-              ( _lhsIstatRegion-              )-            (_justIcomments, _justIcopy, _justIelsesExist, _justIisMultiline, _justIpos, _justIpretty) =-              just_ _justOcomments _justOforceMultiline _justOindent _justOppconf _justOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOelsesExist, _lhsOisMultiline, _lhsOpos, _lhsOpretty)-        )-  )-sem_Else_Nothing :: T_Else-sem_Else_Nothing =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOpos :: Region-            _lhsOisMultiline :: Bool-            _lhsOelsesExist :: Bool-            _lhsOcopy :: Else-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOpos =-              ( emptyRg-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOelsesExist =-              ( False-              )-            _copy =-              ( Nothing-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOelsesExist, _lhsOisMultiline, _lhsOpos, _lhsOpretty)-        )-  )---- ElseIf --------------------------------------------------------- cata-sem_ElseIf-  :: ElseIf-  -> T_ElseIf-sem_ElseIf (x1, x2) =-  (sem_ElseIf_Tuple (sem_MExpr x1) (sem_Block x2))---- semantic domain-type T_ElseIf =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), ElseIf, Bool, Doc)-data Inh_ElseIf = Inh_ElseIf {comments_Inh_ElseIf :: ([MToken]), forceMultiline_Inh_ElseIf :: Bool, indent_Inh_ElseIf :: Int, ppconf_Inh_ElseIf :: PrettyPrintConfig}-data Syn_ElseIf = Syn_ElseIf {comments_Syn_ElseIf :: ([MToken]), copy_Syn_ElseIf :: ElseIf, isMultiline_Syn_ElseIf :: Bool, pretty_Syn_ElseIf :: Doc}-wrap_ElseIf-  :: T_ElseIf-  -> Inh_ElseIf-  -> Syn_ElseIf-wrap_ElseIf sem (Inh_ElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_ElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)-  )-sem_ElseIf_Tuple-  :: T_MExpr-  -> T_Block-  -> T_ElseIf-sem_ElseIf_Tuple x1_ x2_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _x2Oindent :: Int-            _x2OstatRegion :: Region-            _x1OparentOperatorPrecedence :: OperatorLevel-            _x1OparentOperatorAssociative :: Bool-            _lhsOcopy :: ElseIf-            _lhsOcomments :: ([MToken])-            _x1Ocomments :: ([MToken])-            _x1OforceMultiline :: Bool-            _x1Oindent :: Int-            _x1Oppconf :: PrettyPrintConfig-            _x2Ocomments :: ([MToken])-            _x2OforceMultiline :: Bool-            _x2Oppconf :: PrettyPrintConfig-            _x1Icomments :: ([MToken])-            _x1Icopy :: MExpr-            _x1IendsWithPrefixExpression :: Bool-            _x1IisAssociative :: Bool-            _x1IisLiteral :: Bool-            _x1IisMultiline :: Bool-            _x1Ipos :: Region-            _x1Iprecedence :: OperatorLevel-            _x1Ipretty :: Doc-            _x2Icomments :: ([MToken])-            _x2Icopy :: Block-            _x2IisMultiline :: Bool-            _x2Ipretty :: Doc-            _x2IstatementCount :: Int-            _lhsOpretty =-              ( zeroWidthText "elseif" <-> _x1Ipretty <-> zeroWidthText "then" $+$ _x2Ipretty-              )-            _lhsOisMultiline =-              ( _x1IisMultiline || _x2IisMultiline-              )-            _x2Oindent =-              ( _lhsIindent + 1-              )-            _x2OstatRegion =-              ( emptyRg-              )-            _x1OparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _x1OparentOperatorAssociative =-              ( True-              )-            _copy =-              ( (_x1Icopy, _x2Icopy)-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _x2Icomments-              )-            _x1Ocomments =-              ( _lhsIcomments-              )-            _x1OforceMultiline =-              ( _lhsIforceMultiline-              )-            _x1Oindent =-              ( _lhsIindent-              )-            _x1Oppconf =-              ( _lhsIppconf-              )-            _x2Ocomments =-              ( _x1Icomments-              )-            _x2OforceMultiline =-              ( _lhsIforceMultiline-              )-            _x2Oppconf =-              ( _lhsIppconf-              )-            (_x1Icomments, _x1Icopy, _x1IendsWithPrefixExpression, _x1IisAssociative, _x1IisLiteral, _x1IisMultiline, _x1Ipos, _x1Iprecedence, _x1Ipretty) =-              x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf-            (_x2Icomments, _x2Icopy, _x2IisMultiline, _x2Ipretty, _x2IstatementCount) =-              x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf _x2OstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty)-        )-  )---- ElseIfList ----------------------------------------------------- cata-sem_ElseIfList-  :: ElseIfList-  -> T_ElseIfList-sem_ElseIfList list =-  (Prelude.foldr sem_ElseIfList_Cons sem_ElseIfList_Nil (Prelude.map sem_MElseIf list))---- semantic domain-type T_ElseIfList =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), ElseIfList, Bool, Bool, Region, Doc)-data Inh_ElseIfList = Inh_ElseIfList {comments_Inh_ElseIfList :: ([MToken]), forceMultiline_Inh_ElseIfList :: Bool, indent_Inh_ElseIfList :: Int, ppconf_Inh_ElseIfList :: PrettyPrintConfig}-data Syn_ElseIfList = Syn_ElseIfList {comments_Syn_ElseIfList :: ([MToken]), copy_Syn_ElseIfList :: ElseIfList, elsesExist_Syn_ElseIfList :: Bool, isMultiline_Syn_ElseIfList :: Bool, pos_Syn_ElseIfList :: Region, pretty_Syn_ElseIfList :: Doc}-wrap_ElseIfList-  :: T_ElseIfList-  -> Inh_ElseIfList-  -> Syn_ElseIfList-wrap_ElseIfList sem (Inh_ElseIfList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOelsesExist, _lhsOisMultiline, _lhsOpos, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_ElseIfList _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)-  )-sem_ElseIfList_Cons-  :: T_MElseIf-  -> T_ElseIfList-  -> T_ElseIfList-sem_ElseIfList_Cons hd_ tl_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOelsesExist :: Bool-            _lhsOpos :: Region-            _lhsOisMultiline :: Bool-            _lhsOcopy :: ElseIfList-            _lhsOcomments :: ([MToken])-            _hdOcomments :: ([MToken])-            _hdOforceMultiline :: Bool-            _hdOindent :: Int-            _hdOppconf :: PrettyPrintConfig-            _tlOcomments :: ([MToken])-            _tlOforceMultiline :: Bool-            _tlOindent :: Int-            _tlOppconf :: PrettyPrintConfig-            _hdIcomments :: ([MToken])-            _hdIcopy :: MElseIf-            _hdIisMultiline :: Bool-            _hdIpos :: Region-            _hdIpretty :: Doc-            _tlIcomments :: ([MToken])-            _tlIcopy :: ElseIfList-            _tlIelsesExist :: Bool-            _tlIisMultiline :: Bool-            _tlIpos :: Region-            _tlIpretty :: Doc-            _lhsOpretty =-              ( indent _lhsIppconf _lhsIindent _hdIpretty $+$ _tlIpretty-              )-            _lhsOelsesExist =-              ( True-              )-            _lhsOpos =-              ( _hdIpos-              )-            _lhsOisMultiline =-              ( _hdIisMultiline || _tlIisMultiline-              )-            _copy =-              ( (:) _hdIcopy _tlIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _tlIcomments-              )-            _hdOcomments =-              ( _lhsIcomments-              )-            _hdOforceMultiline =-              ( _lhsIforceMultiline-              )-            _hdOindent =-              ( _lhsIindent-              )-            _hdOppconf =-              ( _lhsIppconf-              )-            _tlOcomments =-              ( _hdIcomments-              )-            _tlOforceMultiline =-              ( _lhsIforceMultiline-              )-            _tlOindent =-              ( _lhsIindent-              )-            _tlOppconf =-              ( _lhsIppconf-              )-            (_hdIcomments, _hdIcopy, _hdIisMultiline, _hdIpos, _hdIpretty) =-              hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf-            (_tlIcomments, _tlIcopy, _tlIelsesExist, _tlIisMultiline, _tlIpos, _tlIpretty) =-              tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOelsesExist, _lhsOisMultiline, _lhsOpos, _lhsOpretty)-        )-  )-sem_ElseIfList_Nil :: T_ElseIfList-sem_ElseIfList_Nil =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOpos :: Region-            _lhsOisMultiline :: Bool-            _lhsOelsesExist :: Bool-            _lhsOcopy :: ElseIfList-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOpos =-              ( emptyRg-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOelsesExist =-              ( False-              )-            _copy =-              ( []-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOelsesExist, _lhsOisMultiline, _lhsOpos, _lhsOpretty)-        )-  )---- Expr ----------------------------------------------------------- cata-sem_Expr-  :: Expr-  -> T_Expr-sem_Expr (ANil) =-  (sem_Expr_ANil)-sem_Expr (AFalse) =-  (sem_Expr_AFalse)-sem_Expr (ATrue) =-  (sem_Expr_ATrue)-sem_Expr (ANumber _num) =-  (sem_Expr_ANumber _num)-sem_Expr (AString _str) =-  (sem_Expr_AString _str)-sem_Expr (AVarArg) =-  (sem_Expr_AVarArg)-sem_Expr (AnonymousFunc _pars _body) =-  (sem_Expr_AnonymousFunc _pars (sem_Block _body))-sem_Expr (APrefixExpr _pexpr) =-  (sem_Expr_APrefixExpr (sem_PrefixExp _pexpr))-sem_Expr (ATableConstructor _fields) =-  (sem_Expr_ATableConstructor (sem_FieldList _fields))-sem_Expr (BinOpExpr _op _left _right) =-  (sem_Expr_BinOpExpr (sem_BinOp _op) (sem_MExpr _left) (sem_MExpr _right))-sem_Expr (UnOpExpr _op _right) =-  (sem_Expr_UnOpExpr (sem_UnOp _op) (sem_MExpr _right))---- semantic domain-type T_Expr =-  ([MToken])-  -> Bool-  -> Int-  -> Bool-  -> OperatorLevel-  -> PrettyPrintConfig-  -> Region-  -> (([MToken]), Expr, Bool, Bool, Bool, Bool, OperatorLevel, Doc)-data Inh_Expr = Inh_Expr {comments_Inh_Expr :: ([MToken]), forceMultiline_Inh_Expr :: Bool, indent_Inh_Expr :: Int, parentOperatorAssociative_Inh_Expr :: Bool, parentOperatorPrecedence_Inh_Expr :: OperatorLevel, ppconf_Inh_Expr :: PrettyPrintConfig, statRegion_Inh_Expr :: Region}-data Syn_Expr = Syn_Expr {comments_Syn_Expr :: ([MToken]), copy_Syn_Expr :: Expr, endsWithPrefixExpression_Syn_Expr :: Bool, isAssociative_Syn_Expr :: Bool, isLiteral_Syn_Expr :: Bool, isMultiline_Syn_Expr :: Bool, precedence_Syn_Expr :: OperatorLevel, pretty_Syn_Expr :: Doc}-wrap_Expr-  :: T_Expr-  -> Inh_Expr-  -> Syn_Expr-wrap_Expr sem (Inh_Expr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion-    in-      (Syn_Expr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty)-  )-sem_Expr_ANil :: T_Expr-sem_Expr_ANil =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisLiteral :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "nil"-              )-            _lhsOisLiteral =-              ( True-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( ANil-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_AFalse :: T_Expr-sem_Expr_AFalse =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisLiteral :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "false"-              )-            _lhsOisLiteral =-              ( True-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( AFalse-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_ATrue :: T_Expr-sem_Expr_ATrue =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisLiteral :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "true"-              )-            _lhsOisLiteral =-              ( True-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( ATrue-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_ANumber-  :: String-  -> T_Expr-sem_Expr_ANumber num_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisLiteral :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText num_-              )-            _lhsOisLiteral =-              ( True-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( ANumber num_-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_AString-  :: MToken-  -> T_Expr-sem_Expr_AString str_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisLiteral :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( tok str_-              )-            _lhsOisLiteral =-              ( True-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( AString str_-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_AVarArg :: T_Expr-sem_Expr_AVarArg =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisLiteral :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "..."-              )-            _lhsOisLiteral =-              ( True-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( AVarArg-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_AnonymousFunc-  :: ([MToken])-  -> T_Block-  -> T_Expr-sem_Expr_AnonymousFunc pars_ body_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOendsWithPrefixExpression :: Bool-            _bodyOindent :: Int-            _lhsOpretty :: Doc-            _lhsOisAssociative :: Bool-            _lhsOisLiteral :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _lhsOisMultiline :: Bool-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _isMultiline =-              ( _lhsIforceMultiline || _bodyIisMultiline-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _singleLinePretty =-              ( zeroWidthText "function"-                  <> parens _lhsIppconf _emptyParams (printList tok (render _comma) pars_)-                    <-> _bodyIpretty-                    <-> zeroWidthText "end"-              )-            _multilinePretty =-              ( zeroWidthText "function"-                  <> parens _lhsIppconf _emptyParams (printList tok (render _comma) pars_)-                  $+$ _bodyIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")-              )-            _comma =-              ( (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)-                  <> zchr ','-                  <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)-              )-            _emptyParams =-              ( toEmpty $ null pars_-              )-            _bodyOindent =-              ( if _isMultiline then _lhsIindent + 1 else 0-              )-            _lhsOpretty =-              ( if _isMultiline then _multilinePretty else _singleLinePretty-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOisLiteral =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( AnonymousFunc pars_ _bodyIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _bodyIcomments-              )-            _lhsOisMultiline =-              ( _isMultiline-              )-            _bodyOcomments =-              ( _lhsIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_APrefixExpr-  :: T_PrefixExp-  -> T_Expr-sem_Expr_APrefixExpr pexpr_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOisLiteral :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _pexprOcomments :: ([MToken])-            _pexprOforceMultiline :: Bool-            _pexprOindent :: Int-            _pexprOparentOperatorAssociative :: Bool-            _pexprOparentOperatorPrecedence :: OperatorLevel-            _pexprOppconf :: PrettyPrintConfig-            _pexprIcomments :: ([MToken])-            _pexprIcopy :: PrefixExp-            _pexprIisAssociative :: Bool-            _pexprIisLiteral :: Bool-            _pexprIisMultiline :: Bool-            _pexprIprecedence :: OperatorLevel-            _pexprIpretty :: Doc-            _pexprIstartsWithExprPrefixExpression :: Bool-            _lhsOpretty =-              ( _pexprIpretty-              )-            _lhsOendsWithPrefixExpression =-              ( True-              )-            _lhsOisMultiline =-              ( _pexprIisMultiline-              )-            _lhsOisAssociative =-              ( _pexprIisAssociative-              )-            _lhsOisLiteral =-              ( _pexprIisLiteral-              )-            _lhsOprecedence =-              ( _pexprIprecedence-              )-            _copy =-              ( APrefixExpr _pexprIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _pexprIcomments-              )-            _pexprOcomments =-              ( _lhsIcomments-              )-            _pexprOforceMultiline =-              ( _lhsIforceMultiline-              )-            _pexprOindent =-              ( _lhsIindent-              )-            _pexprOparentOperatorAssociative =-              ( _lhsIparentOperatorAssociative-              )-            _pexprOparentOperatorPrecedence =-              ( _lhsIparentOperatorPrecedence-              )-            _pexprOppconf =-              ( _lhsIppconf-              )-            (_pexprIcomments, _pexprIcopy, _pexprIisAssociative, _pexprIisLiteral, _pexprIisMultiline, _pexprIprecedence, _pexprIpretty, _pexprIstartsWithExprPrefixExpression) =-              pexpr_ _pexprOcomments _pexprOforceMultiline _pexprOindent _pexprOparentOperatorAssociative _pexprOparentOperatorPrecedence _pexprOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_ATableConstructor-  :: T_FieldList-  -> T_Expr-sem_Expr_ATableConstructor fields_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisLiteral :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _fieldsOindent :: Int-            _fieldsOsomeElementsInListAreMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _lhsOisMultiline :: Bool-            _fieldsOcomments :: ([MToken])-            _fieldsOforceMultiline :: Bool-            _fieldsOppconf :: PrettyPrintConfig-            _fieldsIcomments :: ([MToken])-            _fieldsIcopy :: FieldList-            _fieldsIisMultiline :: Bool-            _fieldsIisNil :: Bool-            _fieldsIpretty :: Doc-            _lhsOpretty =-              ( if _isMultiline then _prettyMulti else _prettySingle-              )-            _isMultiline =-              ( _lhsIforceMultiline || _fieldsIisMultiline-              )-            _lhsOisLiteral =-              ( True-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _prettyMulti =-              ( zchr '{' $+$ _fieldsIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}')-              )-            _prettySingle =-              ( braces _lhsIppconf _emptyContents _fieldsIpretty-              )-            _emptyContents =-              ( toEmpty $ null _fieldsIcopy-              )-            _fieldsOindent =-              ( _lhsIindent + (if _fieldsIisMultiline then 1 else 0)-              )-            _fieldsOsomeElementsInListAreMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( ATableConstructor _fieldsIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _fieldsIcomments-              )-            _lhsOisMultiline =-              ( _isMultiline-              )-            _fieldsOcomments =-              ( _lhsIcomments-              )-            _fieldsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _fieldsOppconf =-              ( _lhsIppconf-              )-            (_fieldsIcomments, _fieldsIcopy, _fieldsIisMultiline, _fieldsIisNil, _fieldsIpretty) =-              fields_ _fieldsOcomments _fieldsOforceMultiline _fieldsOindent _fieldsOppconf _fieldsOsomeElementsInListAreMultiline-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_BinOpExpr-  :: T_BinOp-  -> T_MExpr-  -> T_MExpr-  -> T_Expr-sem_Expr_BinOpExpr op_ left_ right_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOisMultiline :: Bool-            _leftOparentOperatorPrecedence :: OperatorLevel-            _rightOparentOperatorPrecedence :: OperatorLevel-            _leftOparentOperatorAssociative :: Bool-            _rightOparentOperatorAssociative :: Bool-            _lhsOisAssociative :: Bool-            _lhsOisLiteral :: Bool-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _opOcomments :: ([MToken])-            _opOindent :: Int-            _opOppconf :: PrettyPrintConfig-            _leftOcomments :: ([MToken])-            _leftOforceMultiline :: Bool-            _leftOindent :: Int-            _leftOppconf :: PrettyPrintConfig-            _rightOcomments :: ([MToken])-            _rightOforceMultiline :: Bool-            _rightOindent :: Int-            _rightOppconf :: PrettyPrintConfig-            _opIcomments :: ([MToken])-            _opIcopy :: BinOp-            _opIisAssociative :: Bool-            _opIisMultiline :: Bool-            _opIprecedence :: OperatorLevel-            _opIpretty :: Doc-            _leftIcomments :: ([MToken])-            _leftIcopy :: MExpr-            _leftIendsWithPrefixExpression :: Bool-            _leftIisAssociative :: Bool-            _leftIisLiteral :: Bool-            _leftIisMultiline :: Bool-            _leftIpos :: Region-            _leftIprecedence :: OperatorLevel-            _leftIpretty :: Doc-            _rightIcomments :: ([MToken])-            _rightIcopy :: MExpr-            _rightIendsWithPrefixExpression :: Bool-            _rightIisAssociative :: Bool-            _rightIisLiteral :: Bool-            _rightIisMultiline :: Bool-            _rightIpos :: Region-            _rightIprecedence :: OperatorLevel-            _rightIpretty :: Doc-            _lhsOpretty =-              ( _leftIpretty <-> _opIpretty <-> _rightIpretty-              )-            _lhsOendsWithPrefixExpression =-              ( _rightIendsWithPrefixExpression-              )-            _lhsOprecedence =-              ( min _opIprecedence $ min _leftIprecedence _rightIprecedence-              )-            _lhsOisMultiline =-              ( _leftIisMultiline || _rightIisMultiline-              )-            _leftOparentOperatorPrecedence =-              ( _opIprecedence-              )-            _rightOparentOperatorPrecedence =-              ( _opIprecedence-              )-            _leftOparentOperatorAssociative =-              ( _opIisAssociative-              )-            _rightOparentOperatorAssociative =-              ( _opIisAssociative-              )-            _lhsOisAssociative =-              ( _opIisAssociative && _leftIisAssociative && _rightIisAssociative-              )-            _lhsOisLiteral =-              ( ((\_ _ -> False) _leftIisLiteral _rightIisLiteral)-              )-            _copy =-              ( BinOpExpr _opIcopy _leftIcopy _rightIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _rightIcomments-              )-            _opOcomments =-              ( _lhsIcomments-              )-            _opOindent =-              ( _lhsIindent-              )-            _opOppconf =-              ( _lhsIppconf-              )-            _leftOcomments =-              ( _opIcomments-              )-            _leftOforceMultiline =-              ( _lhsIforceMultiline-              )-            _leftOindent =-              ( _lhsIindent-              )-            _leftOppconf =-              ( _lhsIppconf-              )-            _rightOcomments =-              ( _leftIcomments-              )-            _rightOforceMultiline =-              ( _lhsIforceMultiline-              )-            _rightOindent =-              ( _lhsIindent-              )-            _rightOppconf =-              ( _lhsIppconf-              )-            (_opIcomments, _opIcopy, _opIisAssociative, _opIisMultiline, _opIprecedence, _opIpretty) =-              op_ _opOcomments _opOindent _opOppconf-            (_leftIcomments, _leftIcopy, _leftIendsWithPrefixExpression, _leftIisAssociative, _leftIisLiteral, _leftIisMultiline, _leftIpos, _leftIprecedence, _leftIpretty) =-              left_ _leftOcomments _leftOforceMultiline _leftOindent _leftOparentOperatorAssociative _leftOparentOperatorPrecedence _leftOppconf-            (_rightIcomments, _rightIcopy, _rightIendsWithPrefixExpression, _rightIisAssociative, _rightIisLiteral, _rightIisMultiline, _rightIpos, _rightIprecedence, _rightIpretty) =-              right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_Expr_UnOpExpr-  :: T_UnOp-  -> T_MExpr-  -> T_Expr-sem_Expr_UnOpExpr op_ right_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOprecedence :: OperatorLevel-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _rightOparentOperatorPrecedence :: OperatorLevel-            _lhsOisAssociative :: Bool-            _lhsOisLiteral :: Bool-            _lhsOcopy :: Expr-            _lhsOcomments :: ([MToken])-            _opOcomments :: ([MToken])-            _opOindent :: Int-            _opOppconf :: PrettyPrintConfig-            _rightOcomments :: ([MToken])-            _rightOforceMultiline :: Bool-            _rightOindent :: Int-            _rightOparentOperatorAssociative :: Bool-            _rightOppconf :: PrettyPrintConfig-            _opIcomments :: ([MToken])-            _opIcopy :: UnOp-            _opIisMultiline :: Bool-            _opIpretty :: Doc-            _rightIcomments :: ([MToken])-            _rightIcopy :: MExpr-            _rightIendsWithPrefixExpression :: Bool-            _rightIisAssociative :: Bool-            _rightIisLiteral :: Bool-            _rightIisMultiline :: Bool-            _rightIpos :: Region-            _rightIprecedence :: OperatorLevel-            _rightIpretty :: Doc-            _lhsOpretty =-              ( _opIpretty <> _rightIpretty-              )-            _lhsOprecedence =-              ( min _rightIprecedence OperatorLevel7-              )-            _lhsOendsWithPrefixExpression =-              ( _rightIendsWithPrefixExpression-              )-            _lhsOisMultiline =-              ( _opIisMultiline || _rightIisMultiline-              )-            _rightOparentOperatorPrecedence =-              ( OperatorLevel7-              )-            _lhsOisAssociative =-              ( _rightIisAssociative-              )-            _lhsOisLiteral =-              ( _rightIisLiteral-              )-            _copy =-              ( UnOpExpr _opIcopy _rightIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _rightIcomments-              )-            _opOcomments =-              ( _lhsIcomments-              )-            _opOindent =-              ( _lhsIindent-              )-            _opOppconf =-              ( _lhsIppconf-              )-            _rightOcomments =-              ( _opIcomments-              )-            _rightOforceMultiline =-              ( _lhsIforceMultiline-              )-            _rightOindent =-              ( _lhsIindent-              )-            _rightOparentOperatorAssociative =-              ( _lhsIparentOperatorAssociative-              )-            _rightOppconf =-              ( _lhsIppconf-              )-            (_opIcomments, _opIcopy, _opIisMultiline, _opIpretty) =-              op_ _opOcomments _opOindent _opOppconf-            (_rightIcomments, _rightIcopy, _rightIendsWithPrefixExpression, _rightIisAssociative, _rightIisLiteral, _rightIisMultiline, _rightIpos, _rightIprecedence, _rightIpretty) =-              right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )---- ExprSuffixList ------------------------------------------------- cata-sem_ExprSuffixList-  :: ExprSuffixList-  -> T_ExprSuffixList-sem_ExprSuffixList list =-  (Prelude.foldr sem_ExprSuffixList_Cons sem_ExprSuffixList_Nil (Prelude.map sem_PFExprSuffix list))---- semantic domain-type T_ExprSuffixList =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), ExprSuffixList, Bool, Bool, OperatorLevel, Doc)-data Inh_ExprSuffixList = Inh_ExprSuffixList {comments_Inh_ExprSuffixList :: ([MToken]), forceMultiline_Inh_ExprSuffixList :: Bool, indent_Inh_ExprSuffixList :: Int, ppconf_Inh_ExprSuffixList :: PrettyPrintConfig}-data Syn_ExprSuffixList = Syn_ExprSuffixList {comments_Syn_ExprSuffixList :: ([MToken]), copy_Syn_ExprSuffixList :: ExprSuffixList, isAssociative_Syn_ExprSuffixList :: Bool, isMultiline_Syn_ExprSuffixList :: Bool, precedence_Syn_ExprSuffixList :: OperatorLevel, pretty_Syn_ExprSuffixList :: Doc}-wrap_ExprSuffixList-  :: T_ExprSuffixList-  -> Inh_ExprSuffixList-  -> Syn_ExprSuffixList-wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_ExprSuffixList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)-  )-sem_ExprSuffixList_Cons-  :: T_PFExprSuffix-  -> T_ExprSuffixList-  -> T_ExprSuffixList-sem_ExprSuffixList_Cons hd_ tl_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: ExprSuffixList-            _lhsOcomments :: ([MToken])-            _hdOcomments :: ([MToken])-            _hdOforceMultiline :: Bool-            _hdOindent :: Int-            _hdOppconf :: PrettyPrintConfig-            _tlOcomments :: ([MToken])-            _tlOforceMultiline :: Bool-            _tlOindent :: Int-            _tlOppconf :: PrettyPrintConfig-            _hdIcomments :: ([MToken])-            _hdIcopy :: PFExprSuffix-            _hdIisAssociative :: Bool-            _hdIisMultiline :: Bool-            _hdIprecedence :: OperatorLevel-            _hdIpretty :: Doc-            _tlIcomments :: ([MToken])-            _tlIcopy :: ExprSuffixList-            _tlIisAssociative :: Bool-            _tlIisMultiline :: Bool-            _tlIprecedence :: OperatorLevel-            _tlIpretty :: Doc-            _lhsOpretty =-              ( _hdIpretty <> _tlIpretty-              )-            _lhsOisMultiline =-              ( _hdIisMultiline || _tlIisMultiline-              )-            _lhsOisAssociative =-              ( _hdIisAssociative && _tlIisAssociative-              )-            _lhsOprecedence =-              ( (min _hdIprecedence _tlIprecedence)-              )-            _copy =-              ( (:) _hdIcopy _tlIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _tlIcomments-              )-            _hdOcomments =-              ( _lhsIcomments-              )-            _hdOforceMultiline =-              ( _lhsIforceMultiline-              )-            _hdOindent =-              ( _lhsIindent-              )-            _hdOppconf =-              ( _lhsIppconf-              )-            _tlOcomments =-              ( _hdIcomments-              )-            _tlOforceMultiline =-              ( _lhsIforceMultiline-              )-            _tlOindent =-              ( _lhsIindent-              )-            _tlOppconf =-              ( _lhsIppconf-              )-            (_hdIcomments, _hdIcopy, _hdIisAssociative, _hdIisMultiline, _hdIprecedence, _hdIpretty) =-              hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf-            (_tlIcomments, _tlIcopy, _tlIisAssociative, _tlIisMultiline, _tlIprecedence, _tlIpretty) =-              tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_ExprSuffixList_Nil :: T_ExprSuffixList-sem_ExprSuffixList_Nil =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: ExprSuffixList-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( []-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )---- Field ---------------------------------------------------------- cata-sem_Field-  :: Field-  -> T_Field-sem_Field (ExprField _key _value _sep) =-  (sem_Field_ExprField (sem_MExpr _key) (sem_MExpr _value) (sem_FieldSep _sep))-sem_Field (NamedField _key _value _sep) =-  (sem_Field_NamedField _key (sem_MExpr _value) (sem_FieldSep _sep))-sem_Field (UnnamedField _value _sep) =-  (sem_Field_UnnamedField (sem_MExpr _value) (sem_FieldSep _sep))---- semantic domain-type T_Field =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), Field, Bool, Bool, Region, Doc)-data Inh_Field = Inh_Field {comments_Inh_Field :: ([MToken]), forceMultiline_Inh_Field :: Bool, indent_Inh_Field :: Int, ppconf_Inh_Field :: PrettyPrintConfig}-data Syn_Field = Syn_Field {comments_Syn_Field :: ([MToken]), copy_Syn_Field :: Field, isMultiline_Syn_Field :: Bool, isSemiColon_Syn_Field :: Bool, pos_Syn_Field :: Region, pretty_Syn_Field :: Doc}-wrap_Field-  :: T_Field-  -> Inh_Field-  -> Syn_Field-wrap_Field sem (Inh_Field _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOisSemiColon, _lhsOpos, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_Field _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpos _lhsOpretty)-  )-sem_Field_ExprField-  :: T_MExpr-  -> T_MExpr-  -> T_FieldSep-  -> T_Field-sem_Field_ExprField key_ value_ sep_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _keyOparentOperatorPrecedence :: OperatorLevel-            _keyOparentOperatorAssociative :: Bool-            _valueOparentOperatorPrecedence :: OperatorLevel-            _valueOparentOperatorAssociative :: Bool-            _lhsOisSemiColon :: Bool-            _lhsOcopy :: Field-            _lhsOcomments :: ([MToken])-            _lhsOpos :: Region-            _keyOcomments :: ([MToken])-            _keyOforceMultiline :: Bool-            _keyOindent :: Int-            _keyOppconf :: PrettyPrintConfig-            _valueOcomments :: ([MToken])-            _valueOforceMultiline :: Bool-            _valueOindent :: Int-            _valueOppconf :: PrettyPrintConfig-            _sepOindent :: Int-            _sepOppconf :: PrettyPrintConfig-            _keyIcomments :: ([MToken])-            _keyIcopy :: MExpr-            _keyIendsWithPrefixExpression :: Bool-            _keyIisAssociative :: Bool-            _keyIisLiteral :: Bool-            _keyIisMultiline :: Bool-            _keyIpos :: Region-            _keyIprecedence :: OperatorLevel-            _keyIpretty :: Doc-            _valueIcomments :: ([MToken])-            _valueIcopy :: MExpr-            _valueIendsWithPrefixExpression :: Bool-            _valueIisAssociative :: Bool-            _valueIisLiteral :: Bool-            _valueIisMultiline :: Bool-            _valueIpos :: Region-            _valueIprecedence :: OperatorLevel-            _valueIpretty :: Doc-            _sepIcopy :: FieldSep-            _sepIisMultiline :: Bool-            _sepIisSemiColon :: Bool-            _sepIpretty :: Doc-            _lhsOpretty =-              ( brackets _lhsIppconf _keyIpretty <-> zchr '=' <-> _valueIpretty <> _sepIpretty-              )-            _lhsOisMultiline =-              ( True-              )-            _keyOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _keyOparentOperatorAssociative =-              ( True-              )-            _valueOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _valueOparentOperatorAssociative =-              ( True-              )-            _lhsOisSemiColon =-              ( _sepIisSemiColon-              )-            _copy =-              ( ExprField _keyIcopy _valueIcopy _sepIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _valueIcomments-              )-            _lhsOpos =-              ( _valueIpos-              )-            _keyOcomments =-              ( _lhsIcomments-              )-            _keyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _keyOindent =-              ( _lhsIindent-              )-            _keyOppconf =-              ( _lhsIppconf-              )-            _valueOcomments =-              ( _keyIcomments-              )-            _valueOforceMultiline =-              ( _lhsIforceMultiline-              )-            _valueOindent =-              ( _lhsIindent-              )-            _valueOppconf =-              ( _lhsIppconf-              )-            _sepOindent =-              ( _lhsIindent-              )-            _sepOppconf =-              ( _lhsIppconf-              )-            (_keyIcomments, _keyIcopy, _keyIendsWithPrefixExpression, _keyIisAssociative, _keyIisLiteral, _keyIisMultiline, _keyIpos, _keyIprecedence, _keyIpretty) =-              key_ _keyOcomments _keyOforceMultiline _keyOindent _keyOparentOperatorAssociative _keyOparentOperatorPrecedence _keyOppconf-            (_valueIcomments, _valueIcopy, _valueIendsWithPrefixExpression, _valueIisAssociative, _valueIisLiteral, _valueIisMultiline, _valueIpos, _valueIprecedence, _valueIpretty) =-              value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf-            (_sepIcopy, _sepIisMultiline, _sepIisSemiColon, _sepIpretty) =-              sep_ _sepOindent _sepOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOisSemiColon, _lhsOpos, _lhsOpretty)-        )-  )-sem_Field_NamedField-  :: MToken-  -> T_MExpr-  -> T_FieldSep-  -> T_Field-sem_Field_NamedField key_ value_ sep_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _valueOparentOperatorPrecedence :: OperatorLevel-            _valueOparentOperatorAssociative :: Bool-            _lhsOisSemiColon :: Bool-            _lhsOcopy :: Field-            _lhsOcomments :: ([MToken])-            _lhsOpos :: Region-            _valueOcomments :: ([MToken])-            _valueOforceMultiline :: Bool-            _valueOindent :: Int-            _valueOppconf :: PrettyPrintConfig-            _sepOindent :: Int-            _sepOppconf :: PrettyPrintConfig-            _valueIcomments :: ([MToken])-            _valueIcopy :: MExpr-            _valueIendsWithPrefixExpression :: Bool-            _valueIisAssociative :: Bool-            _valueIisLiteral :: Bool-            _valueIisMultiline :: Bool-            _valueIpos :: Region-            _valueIprecedence :: OperatorLevel-            _valueIpretty :: Doc-            _sepIcopy :: FieldSep-            _sepIisMultiline :: Bool-            _sepIisSemiColon :: Bool-            _sepIpretty :: Doc-            _lhsOpretty =-              ( tok key_ <-> zchr '=' <-> _valueIpretty <> _sepIpretty-              )-            _lhsOisMultiline =-              ( True-              )-            _valueOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _valueOparentOperatorAssociative =-              ( True-              )-            _lhsOisSemiColon =-              ( _sepIisSemiColon-              )-            _copy =-              ( NamedField key_ _valueIcopy _sepIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _valueIcomments-              )-            _lhsOpos =-              ( _valueIpos-              )-            _valueOcomments =-              ( _lhsIcomments-              )-            _valueOforceMultiline =-              ( _lhsIforceMultiline-              )-            _valueOindent =-              ( _lhsIindent-              )-            _valueOppconf =-              ( _lhsIppconf-              )-            _sepOindent =-              ( _lhsIindent-              )-            _sepOppconf =-              ( _lhsIppconf-              )-            (_valueIcomments, _valueIcopy, _valueIendsWithPrefixExpression, _valueIisAssociative, _valueIisLiteral, _valueIisMultiline, _valueIpos, _valueIprecedence, _valueIpretty) =-              value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf-            (_sepIcopy, _sepIisMultiline, _sepIisSemiColon, _sepIpretty) =-              sep_ _sepOindent _sepOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOisSemiColon, _lhsOpos, _lhsOpretty)-        )-  )-sem_Field_UnnamedField-  :: T_MExpr-  -> T_FieldSep-  -> T_Field-sem_Field_UnnamedField value_ sep_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _valueOparentOperatorPrecedence :: OperatorLevel-            _valueOparentOperatorAssociative :: Bool-            _lhsOisSemiColon :: Bool-            _lhsOcopy :: Field-            _lhsOcomments :: ([MToken])-            _lhsOpos :: Region-            _valueOcomments :: ([MToken])-            _valueOforceMultiline :: Bool-            _valueOindent :: Int-            _valueOppconf :: PrettyPrintConfig-            _sepOindent :: Int-            _sepOppconf :: PrettyPrintConfig-            _valueIcomments :: ([MToken])-            _valueIcopy :: MExpr-            _valueIendsWithPrefixExpression :: Bool-            _valueIisAssociative :: Bool-            _valueIisLiteral :: Bool-            _valueIisMultiline :: Bool-            _valueIpos :: Region-            _valueIprecedence :: OperatorLevel-            _valueIpretty :: Doc-            _sepIcopy :: FieldSep-            _sepIisMultiline :: Bool-            _sepIisSemiColon :: Bool-            _sepIpretty :: Doc-            _lhsOpretty =-              ( _valueIpretty <> _sepIpretty-              )-            _lhsOisMultiline =-              ( _valueIisMultiline || _sepIisMultiline-              )-            _valueOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _valueOparentOperatorAssociative =-              ( True-              )-            _lhsOisSemiColon =-              ( _sepIisSemiColon-              )-            _copy =-              ( UnnamedField _valueIcopy _sepIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _valueIcomments-              )-            _lhsOpos =-              ( _valueIpos-              )-            _valueOcomments =-              ( _lhsIcomments-              )-            _valueOforceMultiline =-              ( _lhsIforceMultiline-              )-            _valueOindent =-              ( _lhsIindent-              )-            _valueOppconf =-              ( _lhsIppconf-              )-            _sepOindent =-              ( _lhsIindent-              )-            _sepOppconf =-              ( _lhsIppconf-              )-            (_valueIcomments, _valueIcopy, _valueIendsWithPrefixExpression, _valueIisAssociative, _valueIisLiteral, _valueIisMultiline, _valueIpos, _valueIprecedence, _valueIpretty) =-              value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf-            (_sepIcopy, _sepIisMultiline, _sepIisSemiColon, _sepIpretty) =-              sep_ _sepOindent _sepOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOisSemiColon, _lhsOpos, _lhsOpretty)-        )-  )---- FieldList ------------------------------------------------------ cata-sem_FieldList-  :: FieldList-  -> T_FieldList-sem_FieldList list =-  (Prelude.foldr sem_FieldList_Cons sem_FieldList_Nil (Prelude.map sem_Field list))---- semantic domain-type T_FieldList =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> Bool-  -> (([MToken]), FieldList, Bool, Bool, Doc)-data Inh_FieldList = Inh_FieldList {comments_Inh_FieldList :: ([MToken]), forceMultiline_Inh_FieldList :: Bool, indent_Inh_FieldList :: Int, ppconf_Inh_FieldList :: PrettyPrintConfig, someElementsInListAreMultiline_Inh_FieldList :: Bool}-data Syn_FieldList = Syn_FieldList {comments_Syn_FieldList :: ([MToken]), copy_Syn_FieldList :: FieldList, isMultiline_Syn_FieldList :: Bool, isNil_Syn_FieldList :: Bool, pretty_Syn_FieldList :: Doc}-wrap_FieldList-  :: T_FieldList-  -> Inh_FieldList-  -> Syn_FieldList-wrap_FieldList sem (Inh_FieldList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOisNil, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline-    in-      (Syn_FieldList _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisNil _lhsOpretty)-  )-sem_FieldList_Cons-  :: T_Field-  -> T_FieldList-  -> T_FieldList-sem_FieldList_Cons hd_ tl_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIsomeElementsInListAreMultiline ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisNil :: Bool-            _tlOsomeElementsInListAreMultiline :: Bool-            _hdOcomments :: ([MToken])-            _tlOcomments :: ([MToken])-            _lhsOcomments :: ([MToken])-            _lhsOcopy :: FieldList-            _lhsOisMultiline :: Bool-            _hdOforceMultiline :: Bool-            _hdOindent :: Int-            _hdOppconf :: PrettyPrintConfig-            _tlOforceMultiline :: Bool-            _tlOindent :: Int-            _tlOppconf :: PrettyPrintConfig-            _hdIcomments :: ([MToken])-            _hdIcopy :: Field-            _hdIisMultiline :: Bool-            _hdIisSemiColon :: Bool-            _hdIpos :: Region-            _hdIpretty :: Doc-            _tlIcomments :: ([MToken])-            _tlIcopy :: FieldList-            _tlIisMultiline :: Bool-            _tlIisNil :: Bool-            _tlIpretty :: Doc-            _lhsOpretty =-              ( if _isMultiline-                  then-                    renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore)-                      $+$ indent _lhsIppconf _lhsIindent _hdIpretty-                        <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter)-                      $+$ _tlIpretty-                  else-                    _hdIpretty-                      `_optionalSpaceAfterSep` _tlIpretty-              )-            _lhsOisNil =-              ( False-              )-            _optionalSpaceAfterSep =-              ( if spaceAfterComma _lhsIppconf then (<->) else (<>)-              )-            _isMultiline =-              ( _lhsIforceMultiline-                  || _hdIisMultiline-                  || _tlIisMultiline-                  || _lhsIsomeElementsInListAreMultiline-                  || not (null $ fst _commentsBefore)-                  || not (null $ fst _commentsAfter)-              )-            _tlOsomeElementsInListAreMultiline =-              ( _lhsIsomeElementsInListAreMultiline-                  || _hdIisMultiline-                  || not (null $ fst _commentsBefore)-                  || not (null $ fst _commentsAfter)-              )-            _commentsBefore =-              ( span (\(MToken pos _) -> pos `before` _hdIpos) _lhsIcomments-              )-            _hdOcomments =-              ( snd _commentsBefore-              )-            _commentsAfter =-              ( span (\(MToken pos _) -> pos `beforeOrOnLine` _hdIpos) _hdIcomments-              )-            _tlOcomments =-              ( snd _commentsAfter-              )-            _lhsOcomments =-              ( _tlIcomments-              )-            _copy =-              ( (:) _hdIcopy _tlIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOisMultiline =-              ( _isMultiline-              )-            _hdOforceMultiline =-              ( _lhsIforceMultiline-              )-            _hdOindent =-              ( _lhsIindent-              )-            _hdOppconf =-              ( _lhsIppconf-              )-            _tlOforceMultiline =-              ( _lhsIforceMultiline-              )-            _tlOindent =-              ( _lhsIindent-              )-            _tlOppconf =-              ( _lhsIppconf-              )-            (_hdIcomments, _hdIcopy, _hdIisMultiline, _hdIisSemiColon, _hdIpos, _hdIpretty) =-              hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf-            (_tlIcomments, _tlIcopy, _tlIisMultiline, _tlIisNil, _tlIpretty) =-              tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOisNil, _lhsOpretty)-        )-  )-sem_FieldList_Nil :: T_FieldList-sem_FieldList_Nil =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIsomeElementsInListAreMultiline ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisNil :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: FieldList-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOisNil =-              ( True-              )-            _lhsOisMultiline =-              ( False-              )-            _copy =-              ( []-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOisNil, _lhsOpretty)-        )-  )---- FieldSep ------------------------------------------------------- cata-sem_FieldSep-  :: FieldSep-  -> T_FieldSep-sem_FieldSep (CommaSep) =-  (sem_FieldSep_CommaSep)-sem_FieldSep (SemicolonSep) =-  (sem_FieldSep_SemicolonSep)-sem_FieldSep (NoSep) =-  (sem_FieldSep_NoSep)---- semantic domain-type T_FieldSep =-  Int-  -> PrettyPrintConfig-  -> (FieldSep, Bool, Bool, Doc)-data Inh_FieldSep = Inh_FieldSep {indent_Inh_FieldSep :: Int, ppconf_Inh_FieldSep :: PrettyPrintConfig}-data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep, isMultiline_Syn_FieldSep :: Bool, isSemiColon_Syn_FieldSep :: Bool, pretty_Syn_FieldSep :: Doc}-wrap_FieldSep-  :: T_FieldSep-  -> Inh_FieldSep-  -> Syn_FieldSep-wrap_FieldSep sem (Inh_FieldSep _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcopy, _lhsOisMultiline, _lhsOisSemiColon, _lhsOpretty) = sem _lhsIindent _lhsIppconf-    in-      (Syn_FieldSep _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpretty)-  )-sem_FieldSep_CommaSep :: T_FieldSep-sem_FieldSep_CommaSep =-  ( \_lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOisSemiColon :: Bool-            _lhsOcopy :: FieldSep-            _lhsOpretty =-              ( (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ','-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisSemiColon =-              ( False-              )-            _copy =-              ( CommaSep-              )-            _lhsOcopy =-              ( _copy-              )-          in-            (_lhsOcopy, _lhsOisMultiline, _lhsOisSemiColon, _lhsOpretty)-        )-  )-sem_FieldSep_SemicolonSep :: T_FieldSep-sem_FieldSep_SemicolonSep =-  ( \_lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisSemiColon :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: FieldSep-            _lhsOpretty =-              ( (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ';'-              )-            _lhsOisSemiColon =-              ( True-              )-            _lhsOisMultiline =-              ( True-              )-            _copy =-              ( SemicolonSep-              )-            _lhsOcopy =-              ( _copy-              )-          in-            (_lhsOcopy, _lhsOisMultiline, _lhsOisSemiColon, _lhsOpretty)-        )-  )-sem_FieldSep_NoSep :: T_FieldSep-sem_FieldSep_NoSep =-  ( \_lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOisSemiColon :: Bool-            _lhsOcopy :: FieldSep-            _lhsOpretty =-              ( empty-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisSemiColon =-              ( False-              )-            _copy =-              ( NoSep-              )-            _lhsOcopy =-              ( _copy-              )-          in-            (_lhsOcopy, _lhsOisMultiline, _lhsOisSemiColon, _lhsOpretty)-        )-  )---- FuncName ------------------------------------------------------- cata-sem_FuncName-  :: FuncName-  -> T_FuncName-sem_FuncName (FuncName _names _meta) =-  (sem_FuncName_FuncName _names _meta)---- semantic domain-type T_FuncName =-  ([MToken])-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), FuncName, Bool, Region, Doc)-data Inh_FuncName = Inh_FuncName {comments_Inh_FuncName :: ([MToken]), indent_Inh_FuncName :: Int, ppconf_Inh_FuncName :: PrettyPrintConfig}-data Syn_FuncName = Syn_FuncName {comments_Syn_FuncName :: ([MToken]), copy_Syn_FuncName :: FuncName, isMultiline_Syn_FuncName :: Bool, pos_Syn_FuncName :: Region, pretty_Syn_FuncName :: Doc}-wrap_FuncName-  :: T_FuncName-  -> Inh_FuncName-  -> Syn_FuncName-wrap_FuncName sem (Inh_FuncName _lhsIcomments _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpos, _lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf-    in-      (Syn_FuncName _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty)-  )-sem_FuncName_FuncName-  :: ([MToken])-  -> (Maybe MToken)-  -> T_FuncName-sem_FuncName_FuncName names_ meta_ =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOpos :: Region-            _lhsOcopy :: FuncName-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( printList tok "." names_ <> metaDoc meta_-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOpos =-              ( case meta_ of-                  Nothing -> _namesPos-                  Just name -> rgOr _namesPos (mpos name)-              )-            _namesPos =-              ( foldl1 rgOr $ map mpos names_-              )-            _copy =-              ( FuncName names_ meta_-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpos, _lhsOpretty)-        )-  )---- MElse ---------------------------------------------------------- cata-sem_MElse-  :: MElse-  -> T_MElse-sem_MElse (MElse _pos _body) =-  (sem_MElse_MElse _pos (sem_Block _body))---- semantic domain-type T_MElse =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> Region-  -> (([MToken]), MElse, Bool, Bool, Region, Doc)-data Inh_MElse = Inh_MElse {comments_Inh_MElse :: ([MToken]), forceMultiline_Inh_MElse :: Bool, indent_Inh_MElse :: Int, ppconf_Inh_MElse :: PrettyPrintConfig, statRegion_Inh_MElse :: Region}-data Syn_MElse = Syn_MElse {comments_Syn_MElse :: ([MToken]), copy_Syn_MElse :: MElse, elsesExist_Syn_MElse :: Bool, isMultiline_Syn_MElse :: Bool, pos_Syn_MElse :: Region, pretty_Syn_MElse :: Doc}-wrap_MElse-  :: T_MElse-  -> Inh_MElse-  -> Syn_MElse-wrap_MElse sem (Inh_MElse _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOelsesExist, _lhsOisMultiline, _lhsOpos, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion-    in-      (Syn_MElse _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty)-  )-sem_MElse_MElse-  :: Region-  -> T_Block-  -> T_MElse-sem_MElse_MElse pos_ body_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _bodyOindent :: Int-            _lhsOpos :: Region-            _bodyOcomments :: ([MToken])-            _lhsOelsesExist :: Bool-            _lhsOcopy :: MElse-            _lhsOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _lhsOpretty =-              ( indent _lhsIppconf _lhsIindent (zeroWidthText "else")-                  <-> _prettyCommentsAfter-                  $+$ _bodyIpretty-              )-            _lhsOisMultiline =-              ( _bodyIisMultiline-              )-            _bodyOindent =-              ( _lhsIindent + 1-              )-            _prettyCommentsAfter =-              ( renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter)-              )-            _commentsAfter =-              ( span (\(MToken pos _) -> pos `beforeOrOnLine` pos_) _lhsIcomments-              )-            _lhsOpos =-              ( pos_-              )-            _bodyOcomments =-              ( snd _commentsAfter-              )-            _lhsOelsesExist =-              ( False-              )-            _copy =-              ( MElse pos_ _bodyIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _bodyIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOelsesExist, _lhsOisMultiline, _lhsOpos, _lhsOpretty)-        )-  )---- MElseIf -------------------------------------------------------- cata-sem_MElseIf-  :: MElseIf-  -> T_MElseIf-sem_MElseIf (MElseIf _pos _elif) =-  (sem_MElseIf_MElseIf _pos (sem_ElseIf _elif))---- semantic domain-type T_MElseIf =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), MElseIf, Bool, Region, Doc)-data Inh_MElseIf = Inh_MElseIf {comments_Inh_MElseIf :: ([MToken]), forceMultiline_Inh_MElseIf :: Bool, indent_Inh_MElseIf :: Int, ppconf_Inh_MElseIf :: PrettyPrintConfig}-data Syn_MElseIf = Syn_MElseIf {comments_Syn_MElseIf :: ([MToken]), copy_Syn_MElseIf :: MElseIf, isMultiline_Syn_MElseIf :: Bool, pos_Syn_MElseIf :: Region, pretty_Syn_MElseIf :: Doc}-wrap_MElseIf-  :: T_MElseIf-  -> Inh_MElseIf-  -> Syn_MElseIf-wrap_MElseIf sem (Inh_MElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpos, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_MElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty)-  )-sem_MElseIf_MElseIf-  :: Region-  -> T_ElseIf-  -> T_MElseIf-sem_MElseIf_MElseIf pos_ elif_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpos :: Region-            _lhsOisMultiline :: Bool-            _lhsOcopy :: MElseIf-            _lhsOcomments :: ([MToken])-            _lhsOpretty :: Doc-            _elifOcomments :: ([MToken])-            _elifOforceMultiline :: Bool-            _elifOindent :: Int-            _elifOppconf :: PrettyPrintConfig-            _elifIcomments :: ([MToken])-            _elifIcopy :: ElseIf-            _elifIisMultiline :: Bool-            _elifIpretty :: Doc-            _lhsOpos =-              ( pos_-              )-            _lhsOisMultiline =-              ( _elifIisMultiline-              )-            _copy =-              ( MElseIf pos_ _elifIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _elifIcomments-              )-            _lhsOpretty =-              ( _elifIpretty-              )-            _elifOcomments =-              ( _lhsIcomments-              )-            _elifOforceMultiline =-              ( _lhsIforceMultiline-              )-            _elifOindent =-              ( _lhsIindent-              )-            _elifOppconf =-              ( _lhsIppconf-              )-            (_elifIcomments, _elifIcopy, _elifIisMultiline, _elifIpretty) =-              elif_ _elifOcomments _elifOforceMultiline _elifOindent _elifOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpos, _lhsOpretty)-        )-  )---- MExpr ---------------------------------------------------------- cata-sem_MExpr-  :: MExpr-  -> T_MExpr-sem_MExpr (MExpr _pos _expr) =-  (sem_MExpr_MExpr _pos (sem_Expr _expr))---- semantic domain-type T_MExpr =-  ([MToken])-  -> Bool-  -> Int-  -> Bool-  -> OperatorLevel-  -> PrettyPrintConfig-  -> (([MToken]), MExpr, Bool, Bool, Bool, Bool, Region, OperatorLevel, Doc)-data Inh_MExpr = Inh_MExpr {comments_Inh_MExpr :: ([MToken]), forceMultiline_Inh_MExpr :: Bool, indent_Inh_MExpr :: Int, parentOperatorAssociative_Inh_MExpr :: Bool, parentOperatorPrecedence_Inh_MExpr :: OperatorLevel, ppconf_Inh_MExpr :: PrettyPrintConfig}-data Syn_MExpr = Syn_MExpr {comments_Syn_MExpr :: ([MToken]), copy_Syn_MExpr :: MExpr, endsWithPrefixExpression_Syn_MExpr :: Bool, isAssociative_Syn_MExpr :: Bool, isLiteral_Syn_MExpr :: Bool, isMultiline_Syn_MExpr :: Bool, pos_Syn_MExpr :: Region, precedence_Syn_MExpr :: OperatorLevel, pretty_Syn_MExpr :: Doc}-wrap_MExpr-  :: T_MExpr-  -> Inh_MExpr-  -> Syn_MExpr-wrap_MExpr sem (Inh_MExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOpos, _lhsOprecedence, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf-    in-      (Syn_MExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty)-  )-sem_MExpr_MExpr-  :: Region-  -> T_Expr-  -> T_MExpr-sem_MExpr_MExpr pos_ expr_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf ->-        ( let-            _lhsOpos :: Region-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _exprOstatRegion :: Region-            _lhsOisAssociative :: Bool-            _lhsOisLiteral :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: MExpr-            _lhsOcomments :: ([MToken])-            _lhsOpretty :: Doc-            _exprOcomments :: ([MToken])-            _exprOforceMultiline :: Bool-            _exprOindent :: Int-            _exprOparentOperatorAssociative :: Bool-            _exprOparentOperatorPrecedence :: OperatorLevel-            _exprOppconf :: PrettyPrintConfig-            _exprIcomments :: ([MToken])-            _exprIcopy :: Expr-            _exprIendsWithPrefixExpression :: Bool-            _exprIisAssociative :: Bool-            _exprIisLiteral :: Bool-            _exprIisMultiline :: Bool-            _exprIprecedence :: OperatorLevel-            _exprIpretty :: Doc-            _lhsOpos =-              ( pos_-              )-            _lhsOendsWithPrefixExpression =-              ( _exprIendsWithPrefixExpression-              )-            _lhsOisMultiline =-              ( _exprIisMultiline-              )-            _exprOstatRegion =-              ( pos_-              )-            _lhsOisAssociative =-              ( _exprIisAssociative-              )-            _lhsOisLiteral =-              ( _exprIisLiteral-              )-            _lhsOprecedence =-              ( _exprIprecedence-              )-            _copy =-              ( MExpr pos_ _exprIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _exprIcomments-              )-            _lhsOpretty =-              ( _exprIpretty-              )-            _exprOcomments =-              ( _lhsIcomments-              )-            _exprOforceMultiline =-              ( _lhsIforceMultiline-              )-            _exprOindent =-              ( _lhsIindent-              )-            _exprOparentOperatorAssociative =-              ( _lhsIparentOperatorAssociative-              )-            _exprOparentOperatorPrecedence =-              ( _lhsIparentOperatorPrecedence-              )-            _exprOppconf =-              ( _lhsIppconf-              )-            (_exprIcomments, _exprIcopy, _exprIendsWithPrefixExpression, _exprIisAssociative, _exprIisLiteral, _exprIisMultiline, _exprIprecedence, _exprIpretty) =-              expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf _exprOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOpos, _lhsOprecedence, _lhsOpretty)-        )-  )---- MExprList ------------------------------------------------------ cata-sem_MExprList-  :: MExprList-  -> T_MExprList-sem_MExprList list =-  (Prelude.foldr sem_MExprList_Cons sem_MExprList_Nil (Prelude.map sem_MExpr list))---- semantic domain-type T_MExprList =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> Bool-  -> (([MToken]), MExprList, Bool, Bool, Bool, Region, OperatorLevel, Doc)-data Inh_MExprList = Inh_MExprList {comments_Inh_MExprList :: ([MToken]), forceMultiline_Inh_MExprList :: Bool, indent_Inh_MExprList :: Int, ppconf_Inh_MExprList :: PrettyPrintConfig, someElementsInListAreMultiline_Inh_MExprList :: Bool}-data Syn_MExprList = Syn_MExprList {comments_Syn_MExprList :: ([MToken]), copy_Syn_MExprList :: MExprList, isAssociative_Syn_MExprList :: Bool, isLast_Syn_MExprList :: Bool, isMultiline_Syn_MExprList :: Bool, pos_Syn_MExprList :: Region, precedence_Syn_MExprList :: OperatorLevel, pretty_Syn_MExprList :: Doc}-wrap_MExprList-  :: T_MExprList-  -> Inh_MExprList-  -> Syn_MExprList-wrap_MExprList sem (Inh_MExprList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisLast, _lhsOisMultiline, _lhsOpos, _lhsOprecedence, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline-    in-      (Syn_MExprList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLast _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty)-  )-sem_MExprList_Cons-  :: T_MExpr-  -> T_MExprList-  -> T_MExprList-sem_MExprList_Cons hd_ tl_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIsomeElementsInListAreMultiline ->-        ( let-            _lhsOpretty :: Doc-            _hdOcomments :: ([MToken])-            _tlOcomments :: ([MToken])-            _lhsOcomments :: ([MToken])-            _lhsOpos :: Region-            _lhsOisLast :: Bool-            _hdOparentOperatorPrecedence :: OperatorLevel-            _hdOparentOperatorAssociative :: Bool-            _tlOsomeElementsInListAreMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: MExprList-            _lhsOisMultiline :: Bool-            _hdOforceMultiline :: Bool-            _hdOindent :: Int-            _hdOppconf :: PrettyPrintConfig-            _tlOforceMultiline :: Bool-            _tlOindent :: Int-            _tlOppconf :: PrettyPrintConfig-            _hdIcomments :: ([MToken])-            _hdIcopy :: MExpr-            _hdIendsWithPrefixExpression :: Bool-            _hdIisAssociative :: Bool-            _hdIisLiteral :: Bool-            _hdIisMultiline :: Bool-            _hdIpos :: Region-            _hdIprecedence :: OperatorLevel-            _hdIpretty :: Doc-            _tlIcomments :: ([MToken])-            _tlIcopy :: MExprList-            _tlIisAssociative :: Bool-            _tlIisLast :: Bool-            _tlIisMultiline :: Bool-            _tlIpos :: Region-            _tlIprecedence :: OperatorLevel-            _tlIpretty :: Doc-            _lhsOpretty =-              ( if _isMultiline then _prettyMultiLine else _prettySingleLine-              )-            _prettySingleLine =-              ( _hdIpretty-                  <> _comma-                  <> _tlIpretty-              )-            _prettyMultiLine =-              ( renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine)-                  $+$ indent _lhsIppconf _lhsIindent _hdIpretty-                    <> _comma-                      <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter)-                  $+$ _tlIpretty-              )-            _comma =-              ( if _tlIisLast-                  then empty-                  else-                    (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)-                      <> zchr ','-                      <> (if not _isMultiline && spaceAfterComma _lhsIppconf then zchr ' ' else empty)-              )-            _commentsBeforeLine =-              ( span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments-              )-            _hdOcomments =-              ( snd _commentsBeforeLine-              )-            _commentsAfter =-              ( span (\(MToken pos' _) -> pos' `before` _tlIpos) _hdIcomments-              )-            _tlOcomments =-              ( snd _commentsAfter-              )-            _lhsOcomments =-              ( _tlIcomments-              )-            _lhsOpos =-              ( _hdIpos-              )-            _lhsOisLast =-              ( False-              )-            _hdOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _hdOparentOperatorAssociative =-              ( True-              )-            _isMultiline =-              ( _lhsIforceMultiline-                  || not (null $ fst _commentsBeforeLine)-                  || not (null $ fst _commentsAfter)-                  || _lhsIsomeElementsInListAreMultiline-                  || _hdIisMultiline-                  || _tlIisMultiline-              )-            _tlOsomeElementsInListAreMultiline =-              ( _lhsIsomeElementsInListAreMultiline-                  || _hdIisMultiline-                  || not (null $ fst _commentsBeforeLine)-                  || not (null $ fst _commentsAfter)-              )-            _lhsOisAssociative =-              ( _hdIisAssociative && _tlIisAssociative-              )-            _lhsOprecedence =-              ( (min _hdIprecedence _tlIprecedence)-              )-            _copy =-              ( (:) _hdIcopy _tlIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOisMultiline =-              ( _isMultiline-              )-            _hdOforceMultiline =-              ( _lhsIforceMultiline-              )-            _hdOindent =-              ( _lhsIindent-              )-            _hdOppconf =-              ( _lhsIppconf-              )-            _tlOforceMultiline =-              ( _lhsIforceMultiline-              )-            _tlOindent =-              ( _lhsIindent-              )-            _tlOppconf =-              ( _lhsIppconf-              )-            (_hdIcomments, _hdIcopy, _hdIendsWithPrefixExpression, _hdIisAssociative, _hdIisLiteral, _hdIisMultiline, _hdIpos, _hdIprecedence, _hdIpretty) =-              hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOparentOperatorAssociative _hdOparentOperatorPrecedence _hdOppconf-            (_tlIcomments, _tlIcopy, _tlIisAssociative, _tlIisLast, _tlIisMultiline, _tlIpos, _tlIprecedence, _tlIpretty) =-              tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisLast, _lhsOisMultiline, _lhsOpos, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_MExprList_Nil :: T_MExprList-sem_MExprList_Nil =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIsomeElementsInListAreMultiline ->-        ( let-            _lhsOpretty :: Doc-            _lhsOpos :: Region-            _lhsOisMultiline :: Bool-            _lhsOisLast :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: MExprList-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOpos =-              ( emptyRg-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisLast =-              ( True-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( []-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisLast, _lhsOisMultiline, _lhsOpos, _lhsOprecedence, _lhsOpretty)-        )-  )---- MStat ---------------------------------------------------------- cata-sem_MStat-  :: MStat-  -> T_MStat-sem_MStat (MStat _pos _stat) =-  (sem_MStat_MStat _pos (sem_Stat _stat))---- semantic domain-type T_MStat =-  ([MToken])-  -> Bool-  -> Int-  -> Bool-  -> PrettyPrintConfig-  -> Bool-  -> (([MToken]), MStat, Bool, Bool, Region, Doc, Bool, Int)-data Inh_MStat = Inh_MStat {comments_Inh_MStat :: ([MToken]), forceMultiline_Inh_MStat :: Bool, indent_Inh_MStat :: Int, isLastStatement_Inh_MStat :: Bool, ppconf_Inh_MStat :: PrettyPrintConfig, wouldBeAmbiguousWithoutSemicolon_Inh_MStat :: Bool}-data Syn_MStat = Syn_MStat {comments_Syn_MStat :: ([MToken]), copy_Syn_MStat :: MStat, endsWithPrefixExpression_Syn_MStat :: Bool, isMultiline_Syn_MStat :: Bool, pos_Syn_MStat :: Region, pretty_Syn_MStat :: Doc, startsWithExprPrefixExpression_Syn_MStat :: Bool, statementCount_Syn_MStat :: Int}-wrap_MStat-  :: T_MStat-  -> Inh_MStat-  -> Syn_MStat-wrap_MStat sem (Inh_MStat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpos, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon-    in-      (Syn_MStat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount)-  )-sem_MStat_MStat-  :: Region-  -> T_Stat-  -> T_MStat-sem_MStat_MStat pos_ stat_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpos :: Region-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _statOstatRegion :: Region-            _statOwouldBeAmbiguousWithoutSemicolon :: Bool-            _lhsOstatementCount :: Int-            _lhsOcopy :: MStat-            _lhsOcomments :: ([MToken])-            _lhsOpretty :: Doc-            _statOcomments :: ([MToken])-            _statOforceMultiline :: Bool-            _statOindent :: Int-            _statOisLastStatement :: Bool-            _statOppconf :: PrettyPrintConfig-            _statIcomments :: ([MToken])-            _statIcopy :: Stat-            _statIendsWithPrefixExpression :: Bool-            _statIisMultiline :: Bool-            _statIpretty :: Doc-            _statIstartsWithExprPrefixExpression :: Bool-            _lhsOpos =-              ( pos_-              )-            _lhsOstartsWithExprPrefixExpression =-              ( _statIstartsWithExprPrefixExpression-              )-            _lhsOendsWithPrefixExpression =-              ( _statIendsWithPrefixExpression-              )-            _lhsOisMultiline =-              ( _statIisMultiline-              )-            _statOstatRegion =-              ( pos_-              )-            _statOwouldBeAmbiguousWithoutSemicolon =-              ( _lhsIwouldBeAmbiguousWithoutSemicolon-              )-            _lhsOstatementCount =-              ( 1-              )-            _copy =-              ( MStat pos_ _statIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _statIcomments-              )-            _lhsOpretty =-              ( _statIpretty-              )-            _statOcomments =-              ( _lhsIcomments-              )-            _statOforceMultiline =-              ( _lhsIforceMultiline-              )-            _statOindent =-              ( _lhsIindent-              )-            _statOisLastStatement =-              ( _lhsIisLastStatement-              )-            _statOppconf =-              ( _lhsIppconf-              )-            (_statIcomments, _statIcopy, _statIendsWithPrefixExpression, _statIisMultiline, _statIpretty, _statIstartsWithExprPrefixExpression) =-              stat_ _statOcomments _statOforceMultiline _statOindent _statOisLastStatement _statOppconf _statOstatRegion _statOwouldBeAmbiguousWithoutSemicolon-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpos, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOstatementCount)-        )-  )---- MStatList ------------------------------------------------------ cata-sem_MStatList-  :: MStatList-  -> T_MStatList-sem_MStatList list =-  (Prelude.foldr sem_MStatList_Cons sem_MStatList_Nil (Prelude.map sem_MStat list))---- semantic domain-type T_MStatList =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> Region-  -> (([MToken]), MStatList, Bool, Bool, Doc, Bool, Int)-data Inh_MStatList = Inh_MStatList {comments_Inh_MStatList :: ([MToken]), forceMultiline_Inh_MStatList :: Bool, indent_Inh_MStatList :: Int, ppconf_Inh_MStatList :: PrettyPrintConfig, statRegion_Inh_MStatList :: Region}-data Syn_MStatList = Syn_MStatList {comments_Syn_MStatList :: ([MToken]), copy_Syn_MStatList :: MStatList, isLast_Syn_MStatList :: Bool, isMultiline_Syn_MStatList :: Bool, pretty_Syn_MStatList :: Doc, startsWithExprPrefixExpression_Syn_MStatList :: Bool, statementCount_Syn_MStatList :: Int}-wrap_MStatList-  :: T_MStatList-  -> Inh_MStatList-  -> Syn_MStatList-wrap_MStatList sem (Inh_MStatList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisLast, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion-    in-      (Syn_MStatList _lhsOcomments _lhsOcopy _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount)-  )-sem_MStatList_Cons-  :: T_MStat-  -> T_MStatList-  -> T_MStatList-sem_MStatList_Cons hd_ tl_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOisLast :: Bool-            _hdOcomments :: ([MToken])-            _tlOcomments :: ([MToken])-            _lhsOcomments :: ([MToken])-            _hdOisLastStatement :: Bool-            _hdOwouldBeAmbiguousWithoutSemicolon :: Bool-            _hdOforceMultiline :: Bool-            _lhsOstatementCount :: Int-            _lhsOcopy :: MStatList-            _lhsOisMultiline :: Bool-            _hdOindent :: Int-            _hdOppconf :: PrettyPrintConfig-            _tlOforceMultiline :: Bool-            _tlOindent :: Int-            _tlOppconf :: PrettyPrintConfig-            _tlOstatRegion :: Region-            _hdIcomments :: ([MToken])-            _hdIcopy :: MStat-            _hdIendsWithPrefixExpression :: Bool-            _hdIisMultiline :: Bool-            _hdIpos :: Region-            _hdIpretty :: Doc-            _hdIstartsWithExprPrefixExpression :: Bool-            _hdIstatementCount :: Int-            _tlIcomments :: ([MToken])-            _tlIcopy :: MStatList-            _tlIisLast :: Bool-            _tlIisMultiline :: Bool-            _tlIpretty :: Doc-            _tlIstartsWithExprPrefixExpression :: Bool-            _tlIstatementCount :: Int-            _lhsOpretty =-              ( renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine)-                  $+$ indent _lhsIppconf _lhsIindent _hdIpretty-                    <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter)-                    <> _addNewline-                  $+$ _tlIpretty-              )-            _lhsOstartsWithExprPrefixExpression =-              ( _hdIstartsWithExprPrefixExpression-              )-            _lhsOisLast =-              ( False-              )-            _isMultiline =-              ( _hdIisMultiline-                  || _tlIisMultiline-                  || not (null $ fst _commentsBeforeLine)-                  || not (null $ fst _commentsAfter)-              )-            _addNewline =-              ( if not _tlIisLast && _hdIisMultiline then zchr '\n' else empty-              )-            _commentsBeforeLine =-              ( span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments-              )-            _hdOcomments =-              ( snd _commentsBeforeLine-              )-            _commentsAfter =-              ( span (\(MToken pos' _) -> pos' `beforeOrOnLine` _hdIpos) _hdIcomments-              )-            _tlOcomments =-              ( snd _commentsAfter-              )-            _lhsOcomments =-              ( _tlIcomments-              )-            _hdOisLastStatement =-              ( _tlIisLast-              )-            _hdOwouldBeAmbiguousWithoutSemicolon =-              ( _hdIendsWithPrefixExpression && _tlIstartsWithExprPrefixExpression-              )-            _hdOforceMultiline =-              ( commentsForceMultiline $ fst _commentsBeforeLine-              )-            _lhsOstatementCount =-              ( _hdIstatementCount + _tlIstatementCount-              )-            _copy =-              ( (:) _hdIcopy _tlIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOisMultiline =-              ( _isMultiline-              )-            _hdOindent =-              ( _lhsIindent-              )-            _hdOppconf =-              ( _lhsIppconf-              )-            _tlOforceMultiline =-              ( _lhsIforceMultiline-              )-            _tlOindent =-              ( _lhsIindent-              )-            _tlOppconf =-              ( _lhsIppconf-              )-            _tlOstatRegion =-              ( _lhsIstatRegion-              )-            (_hdIcomments, _hdIcopy, _hdIendsWithPrefixExpression, _hdIisMultiline, _hdIpos, _hdIpretty, _hdIstartsWithExprPrefixExpression, _hdIstatementCount) =-              hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOisLastStatement _hdOppconf _hdOwouldBeAmbiguousWithoutSemicolon-            (_tlIcomments, _tlIcopy, _tlIisLast, _tlIisMultiline, _tlIpretty, _tlIstartsWithExprPrefixExpression, _tlIstatementCount) =-              tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisLast, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOstatementCount)-        )-  )-sem_MStatList_Nil :: T_MStatList-sem_MStatList_Nil =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf-     _lhsIstatRegion ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstatementCount :: Int-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisLast :: Bool-            _lhsOcopy :: MStatList-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOstatementCount =-              ( 0-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisLast =-              ( True-              )-            _copy =-              ( []-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisLast, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOstatementCount)-        )-  )---- MaybeMExpr ----------------------------------------------------- cata-sem_MaybeMExpr-  :: MaybeMExpr-  -> T_MaybeMExpr-sem_MaybeMExpr (Prelude.Just x) =-  (sem_MaybeMExpr_Just (sem_MExpr x))-sem_MaybeMExpr Prelude.Nothing =-  sem_MaybeMExpr_Nothing---- semantic domain-type T_MaybeMExpr =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), MaybeMExpr, Bool, Bool, Bool, Bool, OperatorLevel, Doc)-data Inh_MaybeMExpr = Inh_MaybeMExpr {comments_Inh_MaybeMExpr :: ([MToken]), forceMultiline_Inh_MaybeMExpr :: Bool, indent_Inh_MaybeMExpr :: Int, ppconf_Inh_MaybeMExpr :: PrettyPrintConfig}-data Syn_MaybeMExpr = Syn_MaybeMExpr {comments_Syn_MaybeMExpr :: ([MToken]), copy_Syn_MaybeMExpr :: MaybeMExpr, endsWithPrefixExpression_Syn_MaybeMExpr :: Bool, isAssociative_Syn_MaybeMExpr :: Bool, isDefined_Syn_MaybeMExpr :: Bool, isMultiline_Syn_MaybeMExpr :: Bool, precedence_Syn_MaybeMExpr :: OperatorLevel, pretty_Syn_MaybeMExpr :: Doc}-wrap_MaybeMExpr-  :: T_MaybeMExpr-  -> Inh_MaybeMExpr-  -> Syn_MaybeMExpr-wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisDefined, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_MaybeMExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisDefined _lhsOisMultiline _lhsOprecedence _lhsOpretty)-  )-sem_MaybeMExpr_Just-  :: T_MExpr-  -> T_MaybeMExpr-sem_MaybeMExpr_Just just_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisDefined :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _justOparentOperatorPrecedence :: OperatorLevel-            _justOparentOperatorAssociative :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: MaybeMExpr-            _lhsOcomments :: ([MToken])-            _justOcomments :: ([MToken])-            _justOforceMultiline :: Bool-            _justOindent :: Int-            _justOppconf :: PrettyPrintConfig-            _justIcomments :: ([MToken])-            _justIcopy :: MExpr-            _justIendsWithPrefixExpression :: Bool-            _justIisAssociative :: Bool-            _justIisLiteral :: Bool-            _justIisMultiline :: Bool-            _justIpos :: Region-            _justIprecedence :: OperatorLevel-            _justIpretty :: Doc-            _lhsOpretty =-              ( _justIpretty-              )-            _lhsOisDefined =-              ( True-              )-            _lhsOendsWithPrefixExpression =-              ( _justIendsWithPrefixExpression-              )-            _lhsOisMultiline =-              ( _justIisMultiline-              )-            _justOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _justOparentOperatorAssociative =-              ( True-              )-            _lhsOisAssociative =-              ( _justIisAssociative-              )-            _lhsOprecedence =-              ( _justIprecedence-              )-            _copy =-              ( Just _justIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _justIcomments-              )-            _justOcomments =-              ( _lhsIcomments-              )-            _justOforceMultiline =-              ( _lhsIforceMultiline-              )-            _justOindent =-              ( _lhsIindent-              )-            _justOppconf =-              ( _lhsIppconf-              )-            (_justIcomments, _justIcopy, _justIendsWithPrefixExpression, _justIisAssociative, _justIisLiteral, _justIisMultiline, _justIpos, _justIprecedence, _justIpretty) =-              just_ _justOcomments _justOforceMultiline _justOindent _justOparentOperatorAssociative _justOparentOperatorPrecedence _justOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisDefined, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_MaybeMExpr_Nothing :: T_MaybeMExpr-sem_MaybeMExpr_Nothing =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisDefined :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: MaybeMExpr-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOisDefined =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( Nothing-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisAssociative, _lhsOisDefined, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )---- PFExprSuffix --------------------------------------------------- cata-sem_PFExprSuffix-  :: PFExprSuffix-  -> T_PFExprSuffix-sem_PFExprSuffix (Call _args) =-  (sem_PFExprSuffix_Call (sem_Args _args))-sem_PFExprSuffix (MetaCall _fn _args) =-  (sem_PFExprSuffix_MetaCall _fn (sem_Args _args))-sem_PFExprSuffix (ExprIndex _index) =-  (sem_PFExprSuffix_ExprIndex (sem_MExpr _index))-sem_PFExprSuffix (DotIndex _index) =-  (sem_PFExprSuffix_DotIndex _index)---- semantic domain-type T_PFExprSuffix =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), PFExprSuffix, Bool, Bool, OperatorLevel, Doc)-data Inh_PFExprSuffix = Inh_PFExprSuffix {comments_Inh_PFExprSuffix :: ([MToken]), forceMultiline_Inh_PFExprSuffix :: Bool, indent_Inh_PFExprSuffix :: Int, ppconf_Inh_PFExprSuffix :: PrettyPrintConfig}-data Syn_PFExprSuffix = Syn_PFExprSuffix {comments_Syn_PFExprSuffix :: ([MToken]), copy_Syn_PFExprSuffix :: PFExprSuffix, isAssociative_Syn_PFExprSuffix :: Bool, isMultiline_Syn_PFExprSuffix :: Bool, precedence_Syn_PFExprSuffix :: OperatorLevel, pretty_Syn_PFExprSuffix :: Doc}-wrap_PFExprSuffix-  :: T_PFExprSuffix-  -> Inh_PFExprSuffix-  -> Syn_PFExprSuffix-wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_PFExprSuffix _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty)-  )-sem_PFExprSuffix_Call-  :: T_Args-  -> T_PFExprSuffix-sem_PFExprSuffix_Call args_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: PFExprSuffix-            _lhsOcomments :: ([MToken])-            _argsOcomments :: ([MToken])-            _argsOforceMultiline :: Bool-            _argsOindent :: Int-            _argsOppconf :: PrettyPrintConfig-            _argsIcomments :: ([MToken])-            _argsIcopy :: Args-            _argsIisMultiline :: Bool-            _argsIpretty :: Doc-            _lhsOpretty =-              ( _argsIpretty-              )-            _lhsOisMultiline =-              ( _argsIisMultiline-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( Call _argsIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _argsIcomments-              )-            _argsOcomments =-              ( _lhsIcomments-              )-            _argsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _argsOindent =-              ( _lhsIindent-              )-            _argsOppconf =-              ( _lhsIppconf-              )-            (_argsIcomments, _argsIcopy, _argsIisMultiline, _argsIpretty) =-              args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_PFExprSuffix_MetaCall-  :: MToken-  -> T_Args-  -> T_PFExprSuffix-sem_PFExprSuffix_MetaCall fn_ args_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: PFExprSuffix-            _lhsOcomments :: ([MToken])-            _argsOcomments :: ([MToken])-            _argsOforceMultiline :: Bool-            _argsOindent :: Int-            _argsOppconf :: PrettyPrintConfig-            _argsIcomments :: ([MToken])-            _argsIcopy :: Args-            _argsIisMultiline :: Bool-            _argsIpretty :: Doc-            _lhsOpretty =-              ( zchr ':' <> tok fn_ <> _argsIpretty-              )-            _lhsOisMultiline =-              ( _argsIisMultiline-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( MetaCall fn_ _argsIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _argsIcomments-              )-            _argsOcomments =-              ( _lhsIcomments-              )-            _argsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _argsOindent =-              ( _lhsIindent-              )-            _argsOppconf =-              ( _lhsIppconf-              )-            (_argsIcomments, _argsIcopy, _argsIisMultiline, _argsIpretty) =-              args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_PFExprSuffix_ExprIndex-  :: T_MExpr-  -> T_PFExprSuffix-sem_PFExprSuffix_ExprIndex index_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _indexOparentOperatorPrecedence :: OperatorLevel-            _indexOparentOperatorAssociative :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: PFExprSuffix-            _lhsOcomments :: ([MToken])-            _indexOcomments :: ([MToken])-            _indexOforceMultiline :: Bool-            _indexOindent :: Int-            _indexOppconf :: PrettyPrintConfig-            _indexIcomments :: ([MToken])-            _indexIcopy :: MExpr-            _indexIendsWithPrefixExpression :: Bool-            _indexIisAssociative :: Bool-            _indexIisLiteral :: Bool-            _indexIisMultiline :: Bool-            _indexIpos :: Region-            _indexIprecedence :: OperatorLevel-            _indexIpretty :: Doc-            _lhsOpretty =-              ( brackets _lhsIppconf _indexIpretty-              )-            _lhsOisMultiline =-              ( _indexIisMultiline-              )-            _indexOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _indexOparentOperatorAssociative =-              ( True-              )-            _lhsOisAssociative =-              ( _indexIisAssociative-              )-            _lhsOprecedence =-              ( _indexIprecedence-              )-            _copy =-              ( ExprIndex _indexIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _indexIcomments-              )-            _indexOcomments =-              ( _lhsIcomments-              )-            _indexOforceMultiline =-              ( _lhsIforceMultiline-              )-            _indexOindent =-              ( _lhsIindent-              )-            _indexOppconf =-              ( _lhsIppconf-              )-            (_indexIcomments, _indexIcopy, _indexIendsWithPrefixExpression, _indexIisAssociative, _indexIisLiteral, _indexIisMultiline, _indexIpos, _indexIprecedence, _indexIpretty) =-              index_ _indexOcomments _indexOforceMultiline _indexOindent _indexOparentOperatorAssociative _indexOparentOperatorPrecedence _indexOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )-sem_PFExprSuffix_DotIndex-  :: MToken-  -> T_PFExprSuffix-sem_PFExprSuffix_DotIndex index_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: PFExprSuffix-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zchr '.' <> tok index_-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisAssociative =-              ( False-              )-            _lhsOprecedence =-              ( OperatorLevel8-              )-            _copy =-              ( DotIndex index_-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty)-        )-  )---- PrefixExp ------------------------------------------------------ cata-sem_PrefixExp-  :: PrefixExp-  -> T_PrefixExp-sem_PrefixExp (PFVar _name _suffixes) =-  (sem_PrefixExp_PFVar _name (sem_ExprSuffixList _suffixes))-sem_PrefixExp (ExprVar _expr _suffixes) =-  (sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes))---- semantic domain-type T_PrefixExp =-  ([MToken])-  -> Bool-  -> Int-  -> Bool-  -> OperatorLevel-  -> PrettyPrintConfig-  -> (([MToken]), PrefixExp, Bool, Bool, Bool, OperatorLevel, Doc, Bool)-data Inh_PrefixExp = Inh_PrefixExp {comments_Inh_PrefixExp :: ([MToken]), forceMultiline_Inh_PrefixExp :: Bool, indent_Inh_PrefixExp :: Int, parentOperatorAssociative_Inh_PrefixExp :: Bool, parentOperatorPrecedence_Inh_PrefixExp :: OperatorLevel, ppconf_Inh_PrefixExp :: PrettyPrintConfig}-data Syn_PrefixExp = Syn_PrefixExp {comments_Syn_PrefixExp :: ([MToken]), copy_Syn_PrefixExp :: PrefixExp, isAssociative_Syn_PrefixExp :: Bool, isLiteral_Syn_PrefixExp :: Bool, isMultiline_Syn_PrefixExp :: Bool, precedence_Syn_PrefixExp :: OperatorLevel, pretty_Syn_PrefixExp :: Doc, startsWithExprPrefixExpression_Syn_PrefixExp :: Bool}-wrap_PrefixExp-  :: T_PrefixExp-  -> Inh_PrefixExp-  -> Syn_PrefixExp-wrap_PrefixExp sem (Inh_PrefixExp _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty, _lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf-    in-      (Syn_PrefixExp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty _lhsOstartsWithExprPrefixExpression)-  )-sem_PrefixExp_PFVar-  :: MToken-  -> T_ExprSuffixList-  -> T_PrefixExp-sem_PrefixExp_PFVar name_ suffixes_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisLiteral :: Bool-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOprecedence :: OperatorLevel-            _lhsOcopy :: PrefixExp-            _lhsOcomments :: ([MToken])-            _suffixesOcomments :: ([MToken])-            _suffixesOforceMultiline :: Bool-            _suffixesOindent :: Int-            _suffixesOppconf :: PrettyPrintConfig-            _suffixesIcomments :: ([MToken])-            _suffixesIcopy :: ExprSuffixList-            _suffixesIisAssociative :: Bool-            _suffixesIisMultiline :: Bool-            _suffixesIprecedence :: OperatorLevel-            _suffixesIpretty :: Doc-            _lhsOpretty =-              ( tok name_ <> _suffixesIpretty-              )-            _lhsOisLiteral =-              ( False-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( _suffixesIisMultiline-              )-            _lhsOisAssociative =-              ( _suffixesIisAssociative-              )-            _lhsOprecedence =-              ( _suffixesIprecedence-              )-            _copy =-              ( PFVar name_ _suffixesIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _suffixesIcomments-              )-            _suffixesOcomments =-              ( _lhsIcomments-              )-            _suffixesOforceMultiline =-              ( _lhsIforceMultiline-              )-            _suffixesOindent =-              ( _lhsIindent-              )-            _suffixesOppconf =-              ( _lhsIppconf-              )-            (_suffixesIcomments, _suffixesIcopy, _suffixesIisAssociative, _suffixesIisMultiline, _suffixesIprecedence, _suffixesIpretty) =-              suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_PrefixExp_ExprVar-  :: T_MExpr-  -> T_ExprSuffixList-  -> T_PrefixExp-sem_PrefixExp_ExprVar expr_ suffixes_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIparentOperatorAssociative-     _lhsIparentOperatorPrecedence-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOprecedence :: OperatorLevel-            _lhsOisLiteral :: Bool-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisAssociative :: Bool-            _lhsOcopy :: PrefixExp-            _lhsOcomments :: ([MToken])-            _exprOcomments :: ([MToken])-            _exprOforceMultiline :: Bool-            _exprOindent :: Int-            _exprOparentOperatorAssociative :: Bool-            _exprOparentOperatorPrecedence :: OperatorLevel-            _exprOppconf :: PrettyPrintConfig-            _suffixesOcomments :: ([MToken])-            _suffixesOforceMultiline :: Bool-            _suffixesOindent :: Int-            _suffixesOppconf :: PrettyPrintConfig-            _exprIcomments :: ([MToken])-            _exprIcopy :: MExpr-            _exprIendsWithPrefixExpression :: Bool-            _exprIisAssociative :: Bool-            _exprIisLiteral :: Bool-            _exprIisMultiline :: Bool-            _exprIpos :: Region-            _exprIprecedence :: OperatorLevel-            _exprIpretty :: Doc-            _suffixesIcomments :: ([MToken])-            _suffixesIcopy :: ExprSuffixList-            _suffixesIisAssociative :: Bool-            _suffixesIisMultiline :: Bool-            _suffixesIprecedence :: OperatorLevel-            _suffixesIpretty :: Doc-            _lhsOpretty =-              ( (if _noparens then _exprIpretty else parens _lhsIppconf NonEmpty _exprIpretty)-                  <> _suffixesIpretty-              )-            _lhsOprecedence =-              ( if _noparens then _exprIprecedence else OperatorLevel8-              )-            _lhsOisLiteral =-              ( False-              )-            _lhsOstartsWithExprPrefixExpression =-              ( True-              )-            _lhsOisMultiline =-              ( _exprIisMultiline || _suffixesIisMultiline-              )-            _containsParenthesizedExpr =-              ( case _exprIcopy of-                  MExpr _ (APrefixExpr (ExprVar (MExpr _ AVarArg) _)) -> False-                  MExpr _ (APrefixExpr _) -> True-                  _ -> False-              )-            _noparens =-              ( (removeRedundantParens _lhsIppconf || minimizeParens _lhsIppconf)-                  && ( _containsParenthesizedExpr-                        || (_lhsIparentOperatorPrecedence == TopLevelExpression || _exprIisLiteral)-                          && length _suffixesIcopy == 0-                     )-                  || ( minimizeParens _lhsIppconf-                        && length _suffixesIcopy == 0-                        && ( _lhsIparentOperatorPrecedence < _exprIprecedence-                              || assumeOperatorAssociativity _lhsIppconf-                                && _lhsIparentOperatorPrecedence == _exprIprecedence-                                && _lhsIparentOperatorAssociative-                           )-                     )-              )-            _lhsOisAssociative =-              ( _exprIisAssociative && _suffixesIisAssociative-              )-            _copy =-              ( ExprVar _exprIcopy _suffixesIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _suffixesIcomments-              )-            _exprOcomments =-              ( _lhsIcomments-              )-            _exprOforceMultiline =-              ( _lhsIforceMultiline-              )-            _exprOindent =-              ( _lhsIindent-              )-            _exprOparentOperatorAssociative =-              ( _lhsIparentOperatorAssociative-              )-            _exprOparentOperatorPrecedence =-              ( _lhsIparentOperatorPrecedence-              )-            _exprOppconf =-              ( _lhsIppconf-              )-            _suffixesOcomments =-              ( _exprIcomments-              )-            _suffixesOforceMultiline =-              ( _lhsIforceMultiline-              )-            _suffixesOindent =-              ( _lhsIindent-              )-            _suffixesOppconf =-              ( _lhsIppconf-              )-            (_exprIcomments, _exprIcopy, _exprIendsWithPrefixExpression, _exprIisAssociative, _exprIisLiteral, _exprIisMultiline, _exprIpos, _exprIprecedence, _exprIpretty) =-              expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf-            (_suffixesIcomments, _suffixesIcopy, _suffixesIisAssociative, _suffixesIisMultiline, _suffixesIprecedence, _suffixesIpretty) =-              suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisAssociative, _lhsOisLiteral, _lhsOisMultiline, _lhsOprecedence, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )---- Stat ----------------------------------------------------------- cata-sem_Stat-  :: Stat-  -> T_Stat-sem_Stat (Def _vars) =-  (sem_Stat_Def (sem_VarsList _vars))-sem_Stat (LocDef _vars) =-  (sem_Stat_LocDef (sem_VarsList _vars))-sem_Stat (AFuncCall _fn) =-  (sem_Stat_AFuncCall (sem_PrefixExp _fn))-sem_Stat (ALabel _lbl) =-  (sem_Stat_ALabel _lbl)-sem_Stat (ABreak) =-  (sem_Stat_ABreak)-sem_Stat (AContinue) =-  (sem_Stat_AContinue)-sem_Stat (AGoto _lbl) =-  (sem_Stat_AGoto _lbl)-sem_Stat (ADo _body) =-  (sem_Stat_ADo (sem_Block _body))-sem_Stat (AWhile _cond _body) =-  (sem_Stat_AWhile (sem_MExpr _cond) (sem_Block _body))-sem_Stat (ARepeat _body _cond) =-  (sem_Stat_ARepeat (sem_Block _body) (sem_MExpr _cond))-sem_Stat (AIf _cond _body _elifs _els) =-  (sem_Stat_AIf (sem_MExpr _cond) (sem_Block _body) (sem_ElseIfList _elifs) (sem_Else _els))-sem_Stat (ANFor _var _val _to _step _body) =-  (sem_Stat_ANFor _var (sem_MExpr _val) (sem_MExpr _to) (sem_MExpr _step) (sem_Block _body))-sem_Stat (AGFor _vars _vals _body) =-  (sem_Stat_AGFor _vars (sem_MExprList _vals) (sem_Block _body))-sem_Stat (AFunc _name _args _body) =-  (sem_Stat_AFunc (sem_FuncName _name) _args (sem_Block _body))-sem_Stat (ALocFunc _name _args _body) =-  (sem_Stat_ALocFunc (sem_FuncName _name) _args (sem_Block _body))---- semantic domain-type T_Stat =-  ([MToken])-  -> Bool-  -> Int-  -> Bool-  -> PrettyPrintConfig-  -> Region-  -> Bool-  -> (([MToken]), Stat, Bool, Bool, Doc, Bool)-data Inh_Stat = Inh_Stat {comments_Inh_Stat :: ([MToken]), forceMultiline_Inh_Stat :: Bool, indent_Inh_Stat :: Int, isLastStatement_Inh_Stat :: Bool, ppconf_Inh_Stat :: PrettyPrintConfig, statRegion_Inh_Stat :: Region, wouldBeAmbiguousWithoutSemicolon_Inh_Stat :: Bool}-data Syn_Stat = Syn_Stat {comments_Syn_Stat :: ([MToken]), copy_Syn_Stat :: Stat, endsWithPrefixExpression_Syn_Stat :: Bool, isMultiline_Syn_Stat :: Bool, pretty_Syn_Stat :: Doc, startsWithExprPrefixExpression_Syn_Stat :: Bool}-wrap_Stat-  :: T_Stat-  -> Inh_Stat-  -> Syn_Stat-wrap_Stat sem (Inh_Stat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon-    in-      (Syn_Stat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression)-  )-sem_Stat_Def-  :: T_VarsList-  -> T_Stat-sem_Stat_Def vars_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _varsOcomments :: ([MToken])-            _varsOforceMultiline :: Bool-            _varsOindent :: Int-            _varsOppconf :: PrettyPrintConfig-            _varsIcomments :: ([MToken])-            _varsIcopy :: VarsList-            _varsIendsWithPrefixExpression :: Bool-            _varsIexprPretty :: Doc-            _varsIisDefined :: Bool-            _varsIisLast :: Bool-            _varsIisMultiline :: Bool-            _varsIpretty :: Doc-            _varsIstartsWithExprPrefixExpression :: Bool-            _varsIvarPretty :: Doc-            _lhsOpretty =-              ( _varsIpretty <> _semicolon-              )-            _lhsOstartsWithExprPrefixExpression =-              ( _varsIstartsWithExprPrefixExpression-              )-            _lhsOendsWithPrefixExpression =-              ( _varsIendsWithPrefixExpression-              )-            _lhsOisMultiline =-              ( _varsIisMultiline-              )-            _semicolon =-              ( if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon-                  then zchr ';'-                  else empty-              )-            _copy =-              ( Def _varsIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _varsIcomments-              )-            _varsOcomments =-              ( _lhsIcomments-              )-            _varsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _varsOindent =-              ( _lhsIindent-              )-            _varsOppconf =-              ( _lhsIppconf-              )-            (_varsIcomments, _varsIcopy, _varsIendsWithPrefixExpression, _varsIexprPretty, _varsIisDefined, _varsIisLast, _varsIisMultiline, _varsIpretty, _varsIstartsWithExprPrefixExpression, _varsIvarPretty) =-              vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_LocDef-  :: T_VarsList-  -> T_Stat-sem_Stat_LocDef vars_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _varsOcomments :: ([MToken])-            _varsOforceMultiline :: Bool-            _varsOindent :: Int-            _varsOppconf :: PrettyPrintConfig-            _varsIcomments :: ([MToken])-            _varsIcopy :: VarsList-            _varsIendsWithPrefixExpression :: Bool-            _varsIexprPretty :: Doc-            _varsIisDefined :: Bool-            _varsIisLast :: Bool-            _varsIisMultiline :: Bool-            _varsIpretty :: Doc-            _varsIstartsWithExprPrefixExpression :: Bool-            _varsIvarPretty :: Doc-            _lhsOpretty =-              ( zeroWidthText "local" <-> _varsIpretty <> _semicolon-              )-            _lhsOstartsWithExprPrefixExpression =-              ( _varsIstartsWithExprPrefixExpression-              )-            _lhsOendsWithPrefixExpression =-              ( _varsIendsWithPrefixExpression-              )-            _lhsOisMultiline =-              ( _varsIisMultiline-              )-            _semicolon =-              ( if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon-                  then zchr ';'-                  else empty-              )-            _copy =-              ( LocDef _varsIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _varsIcomments-              )-            _varsOcomments =-              ( _lhsIcomments-              )-            _varsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _varsOindent =-              ( _lhsIindent-              )-            _varsOppconf =-              ( _lhsIppconf-              )-            (_varsIcomments, _varsIcopy, _varsIendsWithPrefixExpression, _varsIexprPretty, _varsIisDefined, _varsIisLast, _varsIisMultiline, _varsIpretty, _varsIstartsWithExprPrefixExpression, _varsIvarPretty) =-              vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_AFuncCall-  :: T_PrefixExp-  -> T_Stat-sem_Stat_AFuncCall fn_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _fnOparentOperatorPrecedence :: OperatorLevel-            _fnOparentOperatorAssociative :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _fnOcomments :: ([MToken])-            _fnOforceMultiline :: Bool-            _fnOindent :: Int-            _fnOppconf :: PrettyPrintConfig-            _fnIcomments :: ([MToken])-            _fnIcopy :: PrefixExp-            _fnIisAssociative :: Bool-            _fnIisLiteral :: Bool-            _fnIisMultiline :: Bool-            _fnIprecedence :: OperatorLevel-            _fnIpretty :: Doc-            _fnIstartsWithExprPrefixExpression :: Bool-            _lhsOpretty =-              ( _fnIpretty <> _semicolon-              )-            _lhsOisMultiline =-              ( _fnIisMultiline-              )-            _semicolon =-              ( if semicolons _lhsIppconf then zchr ';' else empty-              )-            _lhsOstartsWithExprPrefixExpression =-              ( _fnIstartsWithExprPrefixExpression-              )-            _lhsOendsWithPrefixExpression =-              ( True-              )-            _fnOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _fnOparentOperatorAssociative =-              ( True-              )-            _copy =-              ( AFuncCall _fnIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _fnIcomments-              )-            _fnOcomments =-              ( _lhsIcomments-              )-            _fnOforceMultiline =-              ( _lhsIforceMultiline-              )-            _fnOindent =-              ( _lhsIindent-              )-            _fnOppconf =-              ( _lhsIppconf-              )-            (_fnIcomments, _fnIcopy, _fnIisAssociative, _fnIisLiteral, _fnIisMultiline, _fnIprecedence, _fnIpretty, _fnIstartsWithExprPrefixExpression) =-              fn_ _fnOcomments _fnOforceMultiline _fnOindent _fnOparentOperatorAssociative _fnOparentOperatorPrecedence _fnOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_ALabel-  :: MToken-  -> T_Stat-sem_Stat_ALabel lbl_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "::"-                  <> _whitespace-                  <> tok lbl_-                  <> _whitespace-                  <> zeroWidthText "::"-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _whitespace =-              ( if spaceAfterLabel _lhsIppconf then zeroWidthText " " else empty-              )-            _copy =-              ( ALabel lbl_-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_ABreak :: T_Stat-sem_Stat_ABreak =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "break" <> _semicolon-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _semicolon =-              ( if semicolons _lhsIppconf then zchr ';' else empty-              )-            _copy =-              ( ABreak-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_AContinue :: T_Stat-sem_Stat_AContinue =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "continue" <> _semicolon-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _semicolon =-              ( if semicolons _lhsIppconf then zchr ';' else empty-              )-            _copy =-              ( AContinue-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_AGoto-  :: MToken-  -> T_Stat-sem_Stat_AGoto lbl_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "goto" <-> tok lbl_ <> _semicolon-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _semicolon =-              ( if semicolons _lhsIppconf then zchr ';' else empty-              )-            _copy =-              ( AGoto lbl_-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_ADo-  :: T_Block-  -> T_Stat-sem_Stat_ADo body_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOisMultiline :: Bool-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _bodyOindent :: Int-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _lhsOisMultiline =-              ( True-              )-            _lhsOpretty =-              ( zeroWidthText "do"-                  $+$ _bodyIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _bodyOindent =-              ( _lhsIindent + 1-              )-            _copy =-              ( ADo _bodyIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _bodyIcomments-              )-            _bodyOcomments =-              ( _lhsIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_AWhile-  :: T_MExpr-  -> T_Block-  -> T_Stat-sem_Stat_AWhile cond_ body_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOisMultiline :: Bool-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _condOparentOperatorPrecedence :: OperatorLevel-            _condOparentOperatorAssociative :: Bool-            _lhsOpretty :: Doc-            _bodyOindent :: Int-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _condOcomments :: ([MToken])-            _condOforceMultiline :: Bool-            _condOindent :: Int-            _condOppconf :: PrettyPrintConfig-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _condIcomments :: ([MToken])-            _condIcopy :: MExpr-            _condIendsWithPrefixExpression :: Bool-            _condIisAssociative :: Bool-            _condIisLiteral :: Bool-            _condIisMultiline :: Bool-            _condIpos :: Region-            _condIprecedence :: OperatorLevel-            _condIpretty :: Doc-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _lhsOisMultiline =-              ( True-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _condOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _condOparentOperatorAssociative =-              ( True-              )-            _lhsOpretty =-              ( zeroWidthText "while"-                  <-> _condIpretty-                  <-> zeroWidthText "do"-                  $+$ _bodyIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")-              )-            _bodyOindent =-              ( _lhsIindent + 1-              )-            _copy =-              ( AWhile _condIcopy _bodyIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _bodyIcomments-              )-            _condOcomments =-              ( _lhsIcomments-              )-            _condOforceMultiline =-              ( _lhsIforceMultiline-              )-            _condOindent =-              ( _lhsIindent-              )-            _condOppconf =-              ( _lhsIppconf-              )-            _bodyOcomments =-              ( _condIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            (_condIcomments, _condIcopy, _condIendsWithPrefixExpression, _condIisAssociative, _condIisLiteral, _condIisMultiline, _condIpos, _condIprecedence, _condIpretty) =-              cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_ARepeat-  :: T_Block-  -> T_MExpr-  -> T_Stat-sem_Stat_ARepeat body_ cond_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _bodyOindent :: Int-            _condOparentOperatorPrecedence :: OperatorLevel-            _condOparentOperatorAssociative :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _condOcomments :: ([MToken])-            _condOforceMultiline :: Bool-            _condOindent :: Int-            _condOppconf :: PrettyPrintConfig-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _condIcomments :: ([MToken])-            _condIcopy :: MExpr-            _condIendsWithPrefixExpression :: Bool-            _condIisAssociative :: Bool-            _condIisLiteral :: Bool-            _condIisMultiline :: Bool-            _condIpos :: Region-            _condIprecedence :: OperatorLevel-            _condIpretty :: Doc-            _lhsOpretty =-              ( zeroWidthText "repeat"-                  $+$ _bodyIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "until" <-> _condIpretty)-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( True-              )-            _bodyOindent =-              ( _lhsIindent + 1-              )-            _condOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _condOparentOperatorAssociative =-              ( True-              )-            _copy =-              ( ARepeat _bodyIcopy _condIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _condIcomments-              )-            _bodyOcomments =-              ( _lhsIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            _condOcomments =-              ( _bodyIcomments-              )-            _condOforceMultiline =-              ( _lhsIforceMultiline-              )-            _condOindent =-              ( _lhsIindent-              )-            _condOppconf =-              ( _lhsIppconf-              )-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-            (_condIcomments, _condIcopy, _condIendsWithPrefixExpression, _condIisAssociative, _condIisLiteral, _condIisMultiline, _condIpos, _condIprecedence, _condIpretty) =-              cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_AIf-  :: T_MExpr-  -> T_Block-  -> T_ElseIfList-  -> T_Else-  -> T_Stat-sem_Stat_AIf cond_ body_ elifs_ els_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _condOcomments :: ([MToken])-            _condOparentOperatorPrecedence :: OperatorLevel-            _condOparentOperatorAssociative :: Bool-            _bodyOindent :: Int-            _bodyOstatRegion :: Region-            _lhsOpretty :: Doc-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _lhsOisMultiline :: Bool-            _condOforceMultiline :: Bool-            _condOindent :: Int-            _condOppconf :: PrettyPrintConfig-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _elifsOcomments :: ([MToken])-            _elifsOforceMultiline :: Bool-            _elifsOindent :: Int-            _elifsOppconf :: PrettyPrintConfig-            _elsOcomments :: ([MToken])-            _elsOforceMultiline :: Bool-            _elsOindent :: Int-            _elsOppconf :: PrettyPrintConfig-            _elsOstatRegion :: Region-            _condIcomments :: ([MToken])-            _condIcopy :: MExpr-            _condIendsWithPrefixExpression :: Bool-            _condIisAssociative :: Bool-            _condIisLiteral :: Bool-            _condIisMultiline :: Bool-            _condIpos :: Region-            _condIprecedence :: OperatorLevel-            _condIpretty :: Doc-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _elifsIcomments :: ([MToken])-            _elifsIcopy :: ElseIfList-            _elifsIelsesExist :: Bool-            _elifsIisMultiline :: Bool-            _elifsIpos :: Region-            _elifsIpretty :: Doc-            _elsIcomments :: ([MToken])-            _elsIcopy :: Else-            _elsIelsesExist :: Bool-            _elsIisMultiline :: Bool-            _elsIpos :: Region-            _elsIpretty :: Doc-            _isMultiline =-              ( _lhsIforceMultiline-                  || _condIisMultiline-                  || _bodyIisMultiline-                  || _elifsIelsesExist-                  || _elsIelsesExist-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _singleLinePretty =-              ( zeroWidthText "if"-                  <-> _condIpretty-                  <-> zeroWidthText "then"-                  <-> _bodyIpretty-                  <-> zeroWidthText "end"-                  <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen)-              )-            _multilinePretty =-              ( zeroWidthText "if"-                  <-> _condIpretty-                  <-> zeroWidthText "then"-                  <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen)-                  $+$ _bodyIpretty-                  $+$ _elifsIpretty-                  $+$ _elsIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")-              )-            _commentsAfterThen =-              ( span (\(MToken pos _) -> pos `beforeOrOnLine` _condIpos) _lhsIcomments-              )-            _condOcomments =-              ( snd _commentsAfterThen-              )-            _condOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _condOparentOperatorAssociative =-              ( True-              )-            _bodyOindent =-              ( if _isMultiline then _lhsIindent + 1 else 0-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion `upto` _elifsIpos `upto` _elsIpos-              )-            _lhsOpretty =-              ( if _isMultiline then _multilinePretty else _singleLinePretty-              )-            _copy =-              ( AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _elsIcomments-              )-            _lhsOisMultiline =-              ( _isMultiline-              )-            _condOforceMultiline =-              ( _lhsIforceMultiline-              )-            _condOindent =-              ( _lhsIindent-              )-            _condOppconf =-              ( _lhsIppconf-              )-            _bodyOcomments =-              ( _condIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _elifsOcomments =-              ( _bodyIcomments-              )-            _elifsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _elifsOindent =-              ( _lhsIindent-              )-            _elifsOppconf =-              ( _lhsIppconf-              )-            _elsOcomments =-              ( _elifsIcomments-              )-            _elsOforceMultiline =-              ( _lhsIforceMultiline-              )-            _elsOindent =-              ( _lhsIindent-              )-            _elsOppconf =-              ( _lhsIppconf-              )-            _elsOstatRegion =-              ( _lhsIstatRegion-              )-            (_condIcomments, _condIcopy, _condIendsWithPrefixExpression, _condIisAssociative, _condIisLiteral, _condIisMultiline, _condIpos, _condIprecedence, _condIpretty) =-              cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-            (_elifsIcomments, _elifsIcopy, _elifsIelsesExist, _elifsIisMultiline, _elifsIpos, _elifsIpretty) =-              elifs_ _elifsOcomments _elifsOforceMultiline _elifsOindent _elifsOppconf-            (_elsIcomments, _elsIcopy, _elsIelsesExist, _elsIisMultiline, _elsIpos, _elsIpretty) =-              els_ _elsOcomments _elsOforceMultiline _elsOindent _elsOppconf _elsOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_ANFor-  :: MToken-  -> T_MExpr-  -> T_MExpr-  -> T_MExpr-  -> T_Block-  -> T_Stat-sem_Stat_ANFor var_ val_ to_ step_ body_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOisMultiline :: Bool-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOpretty :: Doc-            _valOcomments :: ([MToken])-            _valOparentOperatorPrecedence :: OperatorLevel-            _valOparentOperatorAssociative :: Bool-            _toOparentOperatorPrecedence :: OperatorLevel-            _toOparentOperatorAssociative :: Bool-            _stepOparentOperatorPrecedence :: OperatorLevel-            _stepOparentOperatorAssociative :: Bool-            _bodyOindent :: Int-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _valOforceMultiline :: Bool-            _valOindent :: Int-            _valOppconf :: PrettyPrintConfig-            _toOcomments :: ([MToken])-            _toOforceMultiline :: Bool-            _toOindent :: Int-            _toOppconf :: PrettyPrintConfig-            _stepOcomments :: ([MToken])-            _stepOforceMultiline :: Bool-            _stepOindent :: Int-            _stepOppconf :: PrettyPrintConfig-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _valIcomments :: ([MToken])-            _valIcopy :: MExpr-            _valIendsWithPrefixExpression :: Bool-            _valIisAssociative :: Bool-            _valIisLiteral :: Bool-            _valIisMultiline :: Bool-            _valIpos :: Region-            _valIprecedence :: OperatorLevel-            _valIpretty :: Doc-            _toIcomments :: ([MToken])-            _toIcopy :: MExpr-            _toIendsWithPrefixExpression :: Bool-            _toIisAssociative :: Bool-            _toIisLiteral :: Bool-            _toIisMultiline :: Bool-            _toIpos :: Region-            _toIprecedence :: OperatorLevel-            _toIpretty :: Doc-            _stepIcomments :: ([MToken])-            _stepIcopy :: MExpr-            _stepIendsWithPrefixExpression :: Bool-            _stepIisAssociative :: Bool-            _stepIisLiteral :: Bool-            _stepIisMultiline :: Bool-            _stepIpos :: Region-            _stepIprecedence :: OperatorLevel-            _stepIpretty :: Doc-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _lhsOisMultiline =-              ( True-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _step =-              ( case _stepIcopy of-                  MExpr _ (ANumber "1") -> empty-                  _ -> _comma <> _stepIpretty-              )-            _lhsOpretty =-              ( zeroWidthText "for"-                  <-> tok var_-                  <-> zchr '='-                  <-> _valIpretty-                  <> _comma-                  <> _toIpretty-                  <> _step-                    <-> zeroWidthText "do"-                    <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor)-                  $+$ _bodyIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")-              )-            _comma =-              ( (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)-                  <> zchr ','-                  <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)-              )-            _commentsAfterFor =-              ( span (\(MToken pos _) -> pos `beforeOrOnLine` mpos var_) _lhsIcomments-              )-            _valOcomments =-              ( snd _commentsAfterFor-              )-            _valOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _valOparentOperatorAssociative =-              ( True-              )-            _toOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _toOparentOperatorAssociative =-              ( True-              )-            _stepOparentOperatorPrecedence =-              ( TopLevelExpression-              )-            _stepOparentOperatorAssociative =-              ( True-              )-            _bodyOindent =-              ( _lhsIindent + 1-              )-            _copy =-              ( ANFor var_ _valIcopy _toIcopy _stepIcopy _bodyIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _bodyIcomments-              )-            _valOforceMultiline =-              ( _lhsIforceMultiline-              )-            _valOindent =-              ( _lhsIindent-              )-            _valOppconf =-              ( _lhsIppconf-              )-            _toOcomments =-              ( _valIcomments-              )-            _toOforceMultiline =-              ( _lhsIforceMultiline-              )-            _toOindent =-              ( _lhsIindent-              )-            _toOppconf =-              ( _lhsIppconf-              )-            _stepOcomments =-              ( _toIcomments-              )-            _stepOforceMultiline =-              ( _lhsIforceMultiline-              )-            _stepOindent =-              ( _lhsIindent-              )-            _stepOppconf =-              ( _lhsIppconf-              )-            _bodyOcomments =-              ( _stepIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            (_valIcomments, _valIcopy, _valIendsWithPrefixExpression, _valIisAssociative, _valIisLiteral, _valIisMultiline, _valIpos, _valIprecedence, _valIpretty) =-              val_ _valOcomments _valOforceMultiline _valOindent _valOparentOperatorAssociative _valOparentOperatorPrecedence _valOppconf-            (_toIcomments, _toIcopy, _toIendsWithPrefixExpression, _toIisAssociative, _toIisLiteral, _toIisMultiline, _toIpos, _toIprecedence, _toIpretty) =-              to_ _toOcomments _toOforceMultiline _toOindent _toOparentOperatorAssociative _toOparentOperatorPrecedence _toOppconf-            (_stepIcomments, _stepIcopy, _stepIendsWithPrefixExpression, _stepIisAssociative, _stepIisLiteral, _stepIisMultiline, _stepIpos, _stepIprecedence, _stepIpretty) =-              step_ _stepOcomments _stepOforceMultiline _stepOindent _stepOparentOperatorAssociative _stepOparentOperatorPrecedence _stepOppconf-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_AGFor-  :: ([MToken])-  -> T_MExprList-  -> T_Block-  -> T_Stat-sem_Stat_AGFor vars_ vals_ body_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOisMultiline :: Bool-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOpretty :: Doc-            _bodyOindent :: Int-            _valsOcomments :: ([MToken])-            _valsOforceMultiline :: Bool-            _valsOsomeElementsInListAreMultiline :: Bool-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _valsOindent :: Int-            _valsOppconf :: PrettyPrintConfig-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _valsIcomments :: ([MToken])-            _valsIcopy :: MExprList-            _valsIisAssociative :: Bool-            _valsIisLast :: Bool-            _valsIisMultiline :: Bool-            _valsIpos :: Region-            _valsIprecedence :: OperatorLevel-            _valsIpretty :: Doc-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _lhsOisMultiline =-              ( True-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOpretty =-              ( zeroWidthText "for"-                  <-> printList tok (render _comma) vars_-                  <-> zeroWidthText "in"-                  <-> _valsIpretty-                  <-> zeroWidthText "do"-                  <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor)-                  $+$ _bodyIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")-              )-            _bodyOindent =-              ( _lhsIindent + 1-              )-            _comma =-              ( (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)-                  <> zchr ','-                  <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)-              )-            _commentsAfterFor =-              ( span (\(MToken pos _) -> pos `beforeOrOnLine` mpos (head vars_)) _lhsIcomments-              )-            _valsOcomments =-              ( snd _commentsAfterFor-              )-            _valsOforceMultiline =-              ( False-              )-            _valsOsomeElementsInListAreMultiline =-              ( False-              )-            _copy =-              ( AGFor vars_ _valsIcopy _bodyIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _bodyIcomments-              )-            _valsOindent =-              ( _lhsIindent-              )-            _valsOppconf =-              ( _lhsIppconf-              )-            _bodyOcomments =-              ( _valsIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            (_valsIcomments, _valsIcopy, _valsIisAssociative, _valsIisLast, _valsIisMultiline, _valsIpos, _valsIprecedence, _valsIpretty) =-              vals_ _valsOcomments _valsOforceMultiline _valsOindent _valsOppconf _valsOsomeElementsInListAreMultiline-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_AFunc-  :: T_FuncName-  -> ([MToken])-  -> T_Block-  -> T_Stat-sem_Stat_AFunc name_ args_ body_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOisMultiline :: Bool-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOpretty :: Doc-            _nameOcomments :: ([MToken])-            _bodyOindent :: Int-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _nameOindent :: Int-            _nameOppconf :: PrettyPrintConfig-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _nameIcomments :: ([MToken])-            _nameIcopy :: FuncName-            _nameIisMultiline :: Bool-            _nameIpos :: Region-            _nameIpretty :: Doc-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _lhsOisMultiline =-              ( True-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOpretty =-              ( zeroWidthText "function"-                  <-> _nameIpretty-                  <> parens _lhsIppconf _emptyParams (printList tok (render _comma) args_)-                    <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc)-                  $+$ _bodyIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")-              )-            _commentsAfterFunc =-              ( span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments-              )-            _nameOcomments =-              ( snd _commentsAfterFunc-              )-            _emptyParams =-              ( toEmpty $ null args_-              )-            _comma =-              ( (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)-                  <> zchr ','-                  <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)-              )-            _bodyOindent =-              ( _lhsIindent + 1-              )-            _copy =-              ( AFunc _nameIcopy args_ _bodyIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _bodyIcomments-              )-            _nameOindent =-              ( _lhsIindent-              )-            _nameOppconf =-              ( _lhsIppconf-              )-            _bodyOcomments =-              ( _nameIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            (_nameIcomments, _nameIcopy, _nameIisMultiline, _nameIpos, _nameIpretty) =-              name_ _nameOcomments _nameOindent _nameOppconf-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )-sem_Stat_ALocFunc-  :: T_FuncName-  -> ([MToken])-  -> T_Block-  -> T_Stat-sem_Stat_ALocFunc name_ args_ body_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIisLastStatement-     _lhsIppconf-     _lhsIstatRegion-     _lhsIwouldBeAmbiguousWithoutSemicolon ->-        ( let-            _lhsOisMultiline :: Bool-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _nameOcomments :: ([MToken])-            _bodyOindent :: Int-            _lhsOcopy :: Stat-            _lhsOcomments :: ([MToken])-            _nameOindent :: Int-            _nameOppconf :: PrettyPrintConfig-            _bodyOcomments :: ([MToken])-            _bodyOforceMultiline :: Bool-            _bodyOppconf :: PrettyPrintConfig-            _bodyOstatRegion :: Region-            _nameIcomments :: ([MToken])-            _nameIcopy :: FuncName-            _nameIisMultiline :: Bool-            _nameIpos :: Region-            _nameIpretty :: Doc-            _bodyIcomments :: ([MToken])-            _bodyIcopy :: Block-            _bodyIisMultiline :: Bool-            _bodyIpretty :: Doc-            _bodyIstatementCount :: Int-            _lhsOisMultiline =-              ( True-              )-            _lhsOpretty =-              ( zeroWidthText "local function"-                  <-> _nameIpretty-                  <> parens _lhsIppconf _emptyParams (printList tok (render _comma) args_)-                    <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc)-                  $+$ _bodyIpretty-                  $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _commentsAfterFunc =-              ( span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments-              )-            _nameOcomments =-              ( snd _commentsAfterFunc-              )-            _emptyParams =-              ( toEmpty $ null args_-              )-            _comma =-              ( (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)-                  <> zchr ','-                  <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)-              )-            _bodyOindent =-              ( _lhsIindent + 1-              )-            _copy =-              ( ALocFunc _nameIcopy args_ _bodyIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _bodyIcomments-              )-            _nameOindent =-              ( _lhsIindent-              )-            _nameOppconf =-              ( _lhsIppconf-              )-            _bodyOcomments =-              ( _nameIcomments-              )-            _bodyOforceMultiline =-              ( _lhsIforceMultiline-              )-            _bodyOppconf =-              ( _lhsIppconf-              )-            _bodyOstatRegion =-              ( _lhsIstatRegion-              )-            (_nameIcomments, _nameIcopy, _nameIisMultiline, _nameIpos, _nameIpretty) =-              name_ _nameOcomments _nameOindent _nameOppconf-            (_bodyIcomments, _bodyIcopy, _bodyIisMultiline, _bodyIpretty, _bodyIstatementCount) =-              body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression)-        )-  )---- UnOp ----------------------------------------------------------- cata-sem_UnOp-  :: UnOp-  -> T_UnOp-sem_UnOp (UnMinus) =-  (sem_UnOp_UnMinus)-sem_UnOp (ANot) =-  (sem_UnOp_ANot)-sem_UnOp (AHash) =-  (sem_UnOp_AHash)---- semantic domain-type T_UnOp =-  ([MToken])-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), UnOp, Bool, Doc)-data Inh_UnOp = Inh_UnOp {comments_Inh_UnOp :: ([MToken]), indent_Inh_UnOp :: Int, ppconf_Inh_UnOp :: PrettyPrintConfig}-data Syn_UnOp = Syn_UnOp {comments_Syn_UnOp :: ([MToken]), copy_Syn_UnOp :: UnOp, isMultiline_Syn_UnOp :: Bool, pretty_Syn_UnOp :: Doc}-wrap_UnOp-  :: T_UnOp-  -> Inh_UnOp-  -> Syn_UnOp-wrap_UnOp sem (Inh_UnOp _lhsIcomments _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf-    in-      (Syn_UnOp _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty)-  )-sem_UnOp_UnMinus :: T_UnOp-sem_UnOp_UnMinus =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOcopy :: UnOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "-"-              )-            _lhsOisMultiline =-              ( False-              )-            _copy =-              ( UnMinus-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty)-        )-  )-sem_UnOp_ANot :: T_UnOp-sem_UnOp_ANot =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOcopy :: UnOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText (if cStyle _lhsIppconf then "!" else "not ")-              )-            _lhsOisMultiline =-              ( False-              )-            _copy =-              ( ANot-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty)-        )-  )-sem_UnOp_AHash :: T_UnOp-sem_UnOp_AHash =-  ( \_lhsIcomments-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOisMultiline :: Bool-            _lhsOcopy :: UnOp-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( zeroWidthText "#"-              )-            _lhsOisMultiline =-              ( False-              )-            _copy =-              ( AHash-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOisMultiline, _lhsOpretty)-        )-  )---- VarsList ------------------------------------------------------- cata-sem_VarsList-  :: VarsList-  -> T_VarsList-sem_VarsList list =-  (Prelude.foldr sem_VarsList_Cons sem_VarsList_Nil (Prelude.map sem_Declaration list))---- semantic domain-type T_VarsList =-  ([MToken])-  -> Bool-  -> Int-  -> PrettyPrintConfig-  -> (([MToken]), VarsList, Bool, Doc, Bool, Bool, Bool, Doc, Bool, Doc)-data Inh_VarsList = Inh_VarsList {comments_Inh_VarsList :: ([MToken]), forceMultiline_Inh_VarsList :: Bool, indent_Inh_VarsList :: Int, ppconf_Inh_VarsList :: PrettyPrintConfig}-data Syn_VarsList = Syn_VarsList {comments_Syn_VarsList :: ([MToken]), copy_Syn_VarsList :: VarsList, endsWithPrefixExpression_Syn_VarsList :: Bool, exprPretty_Syn_VarsList :: Doc, isDefined_Syn_VarsList :: Bool, isLast_Syn_VarsList :: Bool, isMultiline_Syn_VarsList :: Bool, pretty_Syn_VarsList :: Doc, startsWithExprPrefixExpression_Syn_VarsList :: Bool, varPretty_Syn_VarsList :: Doc}-wrap_VarsList-  :: T_VarsList-  -> Inh_VarsList-  -> Syn_VarsList-wrap_VarsList sem (Inh_VarsList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =-  ( let-      (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOexprPretty, _lhsOisDefined, _lhsOisLast, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf-    in-      (Syn_VarsList _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty)-  )-sem_VarsList_Cons-  :: T_Declaration-  -> T_VarsList-  -> T_VarsList-sem_VarsList_Cons hd_ tl_ =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisLast :: Bool-            _lhsOexprPretty :: Doc-            _lhsOisDefined :: Bool-            _lhsOvarPretty :: Doc-            _lhsOcopy :: VarsList-            _lhsOcomments :: ([MToken])-            _hdOcomments :: ([MToken])-            _hdOforceMultiline :: Bool-            _hdOindent :: Int-            _hdOppconf :: PrettyPrintConfig-            _tlOcomments :: ([MToken])-            _tlOforceMultiline :: Bool-            _tlOindent :: Int-            _tlOppconf :: PrettyPrintConfig-            _hdIcomments :: ([MToken])-            _hdIcopy :: Declaration-            _hdIendsWithPrefixExpression :: Bool-            _hdIexprPretty :: Doc-            _hdIisDefined :: Bool-            _hdIisMultiline :: Bool-            _hdIpretty :: Doc-            _hdIstartsWithExprPrefixExpression :: Bool-            _hdIvarPretty :: Doc-            _tlIcomments :: ([MToken])-            _tlIcopy :: VarsList-            _tlIendsWithPrefixExpression :: Bool-            _tlIexprPretty :: Doc-            _tlIisDefined :: Bool-            _tlIisLast :: Bool-            _tlIisMultiline :: Bool-            _tlIpretty :: Doc-            _tlIstartsWithExprPrefixExpression :: Bool-            _tlIvarPretty :: Doc-            _lhsOpretty =-              ( _varPretty-                  <-> if _isDefined then zchr '=' <-> _exprPretty else empty-              )-            _lhsOstartsWithExprPrefixExpression =-              ( _hdIstartsWithExprPrefixExpression-              )-            _lhsOendsWithPrefixExpression =-              ( if _tlIisDefined then _tlIendsWithPrefixExpression else _hdIendsWithPrefixExpression-              )-            _lhsOisMultiline =-              ( _hdIisMultiline || _tlIisMultiline-              )-            _isDefined =-              ( _hdIisDefined || _tlIisDefined-              )-            _varPretty =-              ( _hdIvarPretty-                  <> (if _tlIisLast then empty else _comma)-                  <> _tlIvarPretty-              )-            _exprPretty =-              ( _hdIexprPretty-                  <> (if not _tlIisLast && _tlIisDefined then _comma else empty)-                  <> _tlIexprPretty-              )-            _comma =-              ( (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)-                  <> zchr ','-                  <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)-              )-            _lhsOisLast =-              ( False-              )-            _lhsOexprPretty =-              ( _exprPretty-              )-            _lhsOisDefined =-              ( _isDefined-              )-            _lhsOvarPretty =-              ( _varPretty-              )-            _copy =-              ( (:) _hdIcopy _tlIcopy-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _tlIcomments-              )-            _hdOcomments =-              ( _lhsIcomments-              )-            _hdOforceMultiline =-              ( _lhsIforceMultiline-              )-            _hdOindent =-              ( _lhsIindent-              )-            _hdOppconf =-              ( _lhsIppconf-              )-            _tlOcomments =-              ( _hdIcomments-              )-            _tlOforceMultiline =-              ( _lhsIforceMultiline-              )-            _tlOindent =-              ( _lhsIindent-              )-            _tlOppconf =-              ( _lhsIppconf-              )-            (_hdIcomments, _hdIcopy, _hdIendsWithPrefixExpression, _hdIexprPretty, _hdIisDefined, _hdIisMultiline, _hdIpretty, _hdIstartsWithExprPrefixExpression, _hdIvarPretty) =-              hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf-            (_tlIcomments, _tlIcopy, _tlIendsWithPrefixExpression, _tlIexprPretty, _tlIisDefined, _tlIisLast, _tlIisMultiline, _tlIpretty, _tlIstartsWithExprPrefixExpression, _tlIvarPretty) =-              tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOexprPretty, _lhsOisDefined, _lhsOisLast, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOvarPretty)-        )-  )-sem_VarsList_Nil :: T_VarsList-sem_VarsList_Nil =-  ( \_lhsIcomments-     _lhsIforceMultiline-     _lhsIindent-     _lhsIppconf ->-        ( let-            _lhsOpretty :: Doc-            _lhsOstartsWithExprPrefixExpression :: Bool-            _lhsOendsWithPrefixExpression :: Bool-            _lhsOisMultiline :: Bool-            _lhsOisLast :: Bool-            _lhsOexprPretty :: Doc-            _lhsOisDefined :: Bool-            _lhsOvarPretty :: Doc-            _lhsOcopy :: VarsList-            _lhsOcomments :: ([MToken])-            _lhsOpretty =-              ( empty-              )-            _lhsOstartsWithExprPrefixExpression =-              ( False-              )-            _lhsOendsWithPrefixExpression =-              ( False-              )-            _lhsOisMultiline =-              ( False-              )-            _lhsOisLast =-              ( True-              )-            _lhsOexprPretty =-              ( empty-              )-            _lhsOisDefined =-              ( False-              )-            _lhsOvarPretty =-              ( empty-              )-            _copy =-              ( []-              )-            _lhsOcopy =-              ( _copy-              )-            _lhsOcomments =-              ( _lhsIcomments-              )-          in-            (_lhsOcomments, _lhsOcopy, _lhsOendsWithPrefixExpression, _lhsOexprPretty, _lhsOisDefined, _lhsOisLast, _lhsOisMultiline, _lhsOpretty, _lhsOstartsWithExprPrefixExpression, _lhsOvarPretty)-        )-  )+++{-# LANGUAGE DeriveGeneric #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+-- UUAGC 0.9.53.1 (src/GLua/AG/PrettyPrint.ag)+module GLua.AG.PrettyPrint where++{-# LINE 10 "src/GLua/AG/AST.ag" #-}++import GLua.AG.Token+import GLua.Position+import GLua.TokenTypes ()+import GHC.Generics+import Data.Aeson+{-# LINE 16 "src/GLua/AG/PrettyPrint.hs" #-}++{-# LINE 4 "src/GLua/AG/PrettyPrint.ag" #-}++import Prelude hiding ((<>))+import Data.List (foldl', isInfixOf)+import GLua.AG.AST+import GLua.Position+import Text.PrettyPrint hiding (parens, brackets, braces)+import GLua.TokenTypes+import Data.Maybe+import Text.Parsec+import Text.Parsec.Error+import Debug.Trace+{-# LINE 30 "src/GLua/AG/PrettyPrint.hs" #-}+{-# LINE 19 "src/GLua/AG/PrettyPrint.ag" #-}+++tok :: MToken -> Doc+tok (MToken _ t) = zeroWidthText . show $ t++printList :: (a -> Doc) -> String -> [a] -> Doc+printList _ _ [] = empty+printList f sep' (e : es) = (f e) <> g es+    where+        g [] = empty+        g (e' : es') = zeroWidthText sep' <> (f e') <> g es'++data IsEmpty = IsEmpty | NonEmpty++fromEmpty :: IsEmpty -> Bool+fromEmpty IsEmpty = True+fromEmpty NonEmpty = False++toEmpty :: Bool -> IsEmpty+toEmpty b = if b then IsEmpty else NonEmpty++data PrettyPrintConfig = PPConfig {+    spaceAfterParens :: Bool,+    spaceAfterBrackets :: Bool,+    spaceAfterBraces :: Bool,+    spaceEmptyParens :: Bool,+    spaceEmptyBraces :: Bool,+    spaceAfterLabel :: Bool,+    spaceBeforeComma :: Bool,+    spaceAfterComma :: Bool,+    semicolons :: Bool,+    cStyle :: Bool,+    removeRedundantParens :: Bool,+    minimizeParens :: Bool,+    assumeOperatorAssociativity :: Bool,+    indentation :: String+}++defaultPPConfig :: PrettyPrintConfig+defaultPPConfig = PPConfig {+    spaceAfterParens = False,+    spaceAfterBrackets = False,+    spaceAfterBraces = False,+    spaceEmptyParens = False,+    spaceEmptyBraces = False,+    spaceAfterLabel = False,+    spaceBeforeComma = False,+    spaceAfterComma = True,+    semicolons = False,+    cStyle = False,+    removeRedundantParens = True,+    assumeOperatorAssociativity = True,+    minimizeParens = False,+    indentation = "    "+}++metaDoc :: Maybe MToken -> Doc+metaDoc (Just m) = zchr ':' <> tok m+metaDoc Nothing = empty++printVarList :: [(PrefixExp, Maybe MExpr)] -> Doc+printVarList vars =+    printList pp_prefixexp ", " (map fst vars)+    <-> zchr '='+    <-> printList pp_mexpr ", " (catMaybes . map snd $ vars)++printStats :: [MStat] -> Int -> Doc+printStats [] _ = empty+printStats (x : xs) i = nest (i * 4) (pp_mstat x i) $+$ printStats xs i++printElIfs :: [(MExpr, Block)] -> Int -> Doc+printElIfs [] _ = empty+printElIfs ((e, b) : es) i =+    zeroWidthText "elseif"+    <-> pp_mexpr e+    <-> zeroWidthText "then"+    $+$ pp_block b i+    $+$ printElIfs es i++printEls :: Maybe Block -> Int -> Doc+printEls Nothing _ = empty+printEls (Just b) i = zeroWidthText "else" $+$ pp_block b i+++renderPos :: LineColPos -> String+renderPos (LineColPos l c _) = "line " ++ show (succ l) ++ ", column " ++ show (succ c)++renderRegion :: Region -> String+renderRegion (Region l r) = renderPos l ++ " - " ++ renderPos r++renderSourcePos :: SourcePos -> String+renderSourcePos sp =+    "line "+    ++ (show . succ . sourceLine $ sp)+    ++ ", column "+    ++ (show . succ . sourceColumn $ sp)++getMStatPos :: MStat -> String+getMStatPos (MStat p _) = renderRegion p++getAReturnPos :: AReturn -> String+getAReturnPos (AReturn p _) = renderRegion p+getAReturnPos NoReturn = "<unknown>"++getMExprPos :: MExpr -> String+getMExprPos (MExpr p _) = renderRegion p++renderPSError :: ParseError -> String+renderPSError ps =+        map replNL+        . showErrorMessages+            "or"+            "unknown parse error"+            "expecting"+            "unexpected"+            "end of input"+        . errorMessages+        $ ps+    where+        replNL '\n' = ' '+        replNL c = c++-- | Render comments on multiple lines+renderMLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc+renderMLComments conf ind toks =+    foldl' ($+$) empty . map (indent conf ind . tok . convertComment conf) $ toks++-- | Render comments, and prefer having them on a single line. It may not print comments on the same+-- line if that would cause a syntax error (e.g. a multiline comment after a single line comment)+renderSLComments :: PrettyPrintConfig -> Int -> [MToken] -> Doc+renderSLComments conf ind toks = foldl' combine empty . map (convertComment conf) $ toks+    where+        combine :: Doc -> MToken -> Doc+        combine acc mt@(MToken _pos t) =+          case t of+            -- Block comments after single line comments cannot be printed on the same line, as that+            -- would cause a syntax error, e.g. in this case:++            -- foo = { -- single line comment+            -- --[[multiline+            -- comment+            -- ]]+            -- }+            -- Make sure in these cases the comment is printed on a new line, rather than on the+            -- same line+            DashBlockComment _depth comment | '\n' `elem` comment ->+              acc $+$ (indent conf ind $ tok mt)+            SlashBlockComment comment | '\n' `elem` comment ->+              acc $+$ (indent conf ind $ tok mt)+            _ -> acc <-> tok mt++convertComment :: PrettyPrintConfig -> MToken -> MToken+convertComment conf (MToken p t) = MToken p $ convert' t+    where+        convert' :: Token -> Token+        convert' = if cStyle conf then cComment else luaComment++        luaComment :: Token -> Token+        luaComment (SlashComment s) = DashComment s+        luaComment (SlashBlockComment s) = DashBlockComment (lastBracket s) s+        luaComment t' = t'++        -- converting /*]*/ would end up in --[[]]] when plainly converted+        -- Deepen the block comment by 1 if that's the case+        lastBracket :: String -> Int+        lastBracket [] = 0+        lastBracket s = if last s == ']' then 1 else 0++        cComment :: Token -> Token+        cComment (DashComment s) = SlashComment s+        cComment (DashBlockComment _ s) = SlashBlockComment s+        cComment t' = t'++indent :: PrettyPrintConfig -> Int -> Doc -> Doc+indent conf n = (<>) $ zeroWidthText (concat . replicate n $ indentation conf)++parens :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc+parens conf ie doc = zchr '(' `sep'` doc `sep'` zchr ')'+    where+        sep' :: Doc -> Doc -> Doc+        sep' =+            if spaceAfterParens conf && (not (fromEmpty ie) || spaceEmptyParens conf)+            then (<->)+            else (<>)++brackets :: PrettyPrintConfig -> Doc -> Doc+brackets conf doc = zchr '[' `sep'` doc `sep'` zchr ']'+    where+        sep' :: Doc -> Doc -> Doc+        sep' = if spaceAfterBrackets conf then (<->) else (<>)++braces :: PrettyPrintConfig -> IsEmpty -> Doc -> Doc+braces conf ie doc = zchr '{' `sep'` doc `sep'` zchr '}'+    where+        sep' :: Doc -> Doc -> Doc+        sep' =+            if spaceAfterBraces conf && (not (fromEmpty ie) || spaceEmptyBraces conf)+            then (<->)+            else (<>)++-- Zero width char+zchr :: Char -> Doc+zchr c = zeroWidthText [c]++-- Zero width <+>+infixl 6 <->+(<->) :: Doc -> Doc -> Doc+a <-> b | a == empty = b+        | b == empty = a+        | otherwise = a <> zchr ' ' <> b++-- Operator levels, where level 1 is the lowest level, and level 8 is the highest one+-- See http://www.lua.org/manual/5.2/manual.html#3.4.7+data OperatorLevel+    -- At the top level, there is no assigned operator level yet. This serves as a bottom value.+    = TopLevelExpression+    | OperatorLevel1+    | OperatorLevel2+    | OperatorLevel3+    | OperatorLevel4+    | OperatorLevel5+    | OperatorLevel6+    | OperatorLevel7+    | OperatorLevel8+    deriving (Eq, Ord)++-- | Returns true when any of the comments contain the string "format: multiline"+commentsForceMultiline :: [MToken] -> Bool+commentsForceMultiline commentTokens = any containsFormatMultiline commentTokens+  where+    containsFormatMultiline :: MToken -> Bool+    containsFormatMultiline (MToken _pos t) = case t of+        DashComment comment -> stringForcesFormat comment+        DashBlockComment _ comment -> stringForcesFormat comment+        SlashComment comment -> stringForcesFormat comment+        SlashBlockComment comment -> stringForcesFormat comment+        _ -> False++    stringForcesFormat :: String -> Bool+    stringForcesFormat s = "format: multiline" `isInfixOf` s++{-# LINE 273 "src/GLua/AG/PrettyPrint.hs" #-}++{-# LINE 1206 "src/GLua/AG/PrettyPrint.ag" #-}+++pp_block :: Block -> Int -> Doc+pp_block p i = pretty_Syn_Block (wrap_Block (sem_Block p) (emptyInh_Block {indent_Inh_Block = i}))++pp_mstat :: MStat -> Int -> Doc+pp_mstat p i = pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat {indent_Inh_MStat = i})++pp_prefixexp :: PrefixExp -> Doc+pp_prefixexp p = pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp)++pp_pfexprsuffix :: PFExprSuffix -> Doc+pp_pfexprsuffix p =+    pretty_Syn_PFExprSuffix (wrap_PFExprSuffix (sem_PFExprSuffix p) emptyInh_PFExprSuffix)++pp_field :: Field -> Doc+pp_field p = pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field)++pp_mexpr :: MExpr -> Doc+pp_mexpr p = pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr)++prettyprint :: AST -> String+prettyprint p = render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST)++prettyprintConf :: PrettyPrintConfig -> AST -> String+prettyprintConf conf p =+    render $ pretty_Syn_AST (wrap_AST (sem_AST p) emptyInh_AST {ppconf_Inh_AST = conf})++renderBlock :: Block -> String+renderBlock p = render $ pretty_Syn_Block (wrap_Block (sem_Block p) emptyInh_Block)++renderStat :: Stat -> String+renderStat p = render $ pretty_Syn_Stat (wrap_Stat (sem_Stat p) emptyInh_Stat)++renderMStat :: MStat -> String+renderMStat p = render $ pretty_Syn_MStat (wrap_MStat (sem_MStat p) emptyInh_MStat)++renderAReturn :: AReturn -> String+renderAReturn p = render $ pretty_Syn_AReturn (wrap_AReturn (sem_AReturn p) emptyInh_AReturn)++renderFuncName :: FuncName -> String+renderFuncName p = render $ pretty_Syn_FuncName (wrap_FuncName (sem_FuncName p) emptyInh_FuncName)++renderPrefixExp :: PrefixExp -> String+renderPrefixExp p =+    render $ pretty_Syn_PrefixExp (wrap_PrefixExp (sem_PrefixExp p) emptyInh_PrefixExp)++renderExpr :: Expr -> String+renderExpr p = render $ pretty_Syn_Expr (wrap_Expr (sem_Expr p) emptyInh_Expr)++renderMExpr :: MExpr -> String+renderMExpr p = render $ pretty_Syn_MExpr (wrap_MExpr (sem_MExpr p) emptyInh_MExpr)++renderArgs :: Args -> String+renderArgs p = render $ pretty_Syn_Args (wrap_Args (sem_Args p) emptyInh_Args)++renderField :: Field -> String+renderField p = render $ pretty_Syn_Field (wrap_Field (sem_Field p) emptyInh_Field)++emptyInh_Field :: Inh_Field+emptyInh_Field =+    Inh_Field+      { comments_Inh_Field = []+      , forceMultiline_Inh_Field = False+      , indent_Inh_Field = 0+      , ppconf_Inh_Field = defaultPPConfig+      }++emptyInh_Args :: Inh_Args+emptyInh_Args =+    Inh_Args+      { comments_Inh_Args = []+      , forceMultiline_Inh_Args = False+      , indent_Inh_Args = 0+      , ppconf_Inh_Args = defaultPPConfig+      }++emptyInh_MExpr :: Inh_MExpr+emptyInh_MExpr =+    Inh_MExpr+      { comments_Inh_MExpr = []+      , forceMultiline_Inh_MExpr = False+      , indent_Inh_MExpr = 0+      , parentOperatorAssociative_Inh_MExpr = True+      , parentOperatorPrecedence_Inh_MExpr = TopLevelExpression+      , ppconf_Inh_MExpr = defaultPPConfig+      }++emptyInh_Expr :: Inh_Expr+emptyInh_Expr =+    Inh_Expr+      { comments_Inh_Expr = []+      , forceMultiline_Inh_Expr = False+      , indent_Inh_Expr = 0+      , parentOperatorAssociative_Inh_Expr = True+      , parentOperatorPrecedence_Inh_Expr = TopLevelExpression+      , ppconf_Inh_Expr = defaultPPConfig+      , statRegion_Inh_Expr = emptyRg+      }++emptyInh_PrefixExp :: Inh_PrefixExp+emptyInh_PrefixExp =+    Inh_PrefixExp+      { comments_Inh_PrefixExp = []+      , forceMultiline_Inh_PrefixExp = False+      , indent_Inh_PrefixExp = 0+      , parentOperatorAssociative_Inh_PrefixExp = True+      , parentOperatorPrecedence_Inh_PrefixExp = TopLevelExpression+      , ppconf_Inh_PrefixExp = defaultPPConfig+      }++emptyInh_FuncName :: Inh_FuncName+emptyInh_FuncName =+    Inh_FuncName+      { comments_Inh_FuncName = []+      , indent_Inh_FuncName = 0+      , ppconf_Inh_FuncName = defaultPPConfig+      }++emptyInh_AReturn :: Inh_AReturn+emptyInh_AReturn =+    Inh_AReturn+      { comments_Inh_AReturn = []+      , forceMultiline_Inh_AReturn = False+      , indent_Inh_AReturn = 0+      , ppconf_Inh_AReturn = defaultPPConfig+      }++emptyInh_MStat :: Inh_MStat+emptyInh_MStat =+    Inh_MStat+      { comments_Inh_MStat = []+      , forceMultiline_Inh_MStat = False+      , indent_Inh_MStat = 0+      , isLastStatement_Inh_MStat = False+      , ppconf_Inh_MStat = defaultPPConfig+      , wouldBeAmbiguousWithoutSemicolon_Inh_MStat = False+      }++emptyInh_Stat :: Inh_Stat+emptyInh_Stat =+    Inh_Stat+      { comments_Inh_Stat = []+      , forceMultiline_Inh_Stat = False+      , indent_Inh_Stat = 0+      , isLastStatement_Inh_Stat = False+      , ppconf_Inh_Stat = defaultPPConfig+      , statRegion_Inh_Stat = emptyRg+      , wouldBeAmbiguousWithoutSemicolon_Inh_Stat = False+      }++emptyInh_Block :: Inh_Block+emptyInh_Block =+    Inh_Block+      { comments_Inh_Block = []+      , forceMultiline_Inh_Block = False+      , indent_Inh_Block = 0+      , ppconf_Inh_Block = defaultPPConfig+      , statRegion_Inh_Block = emptyRg+      }++emptyInh_AST :: Inh_AST+emptyInh_AST =+    Inh_AST+      { indent_Inh_AST = 0+      , ppconf_Inh_AST = defaultPPConfig+      }++emptyInh_PFExprSuffix :: Inh_PFExprSuffix+emptyInh_PFExprSuffix =+    Inh_PFExprSuffix+      { comments_Inh_PFExprSuffix = []+      , forceMultiline_Inh_PFExprSuffix = False+      , indent_Inh_PFExprSuffix = 0+      , ppconf_Inh_PFExprSuffix = defaultPPConfig+      }++{-# LINE 453 "src/GLua/AG/PrettyPrint.hs" #-}+-- AReturn -----------------------------------------------------+-- cata+sem_AReturn :: AReturn ->+               T_AReturn+sem_AReturn (AReturn _pos _values) =+    (sem_AReturn_AReturn _pos (sem_MExprList _values))+sem_AReturn (NoReturn) =+    (sem_AReturn_NoReturn)+-- semantic domain+type T_AReturn = ([MToken]) ->+                 Bool ->+                 Int ->+                 PrettyPrintConfig ->+                 ( ([MToken]),AReturn,Bool,Doc,Int)+data Inh_AReturn = Inh_AReturn {comments_Inh_AReturn :: ([MToken]),forceMultiline_Inh_AReturn :: Bool,indent_Inh_AReturn :: Int,ppconf_Inh_AReturn :: PrettyPrintConfig}+data Syn_AReturn = Syn_AReturn {comments_Syn_AReturn :: ([MToken]),copy_Syn_AReturn :: AReturn,isMultiline_Syn_AReturn :: Bool,pretty_Syn_AReturn :: Doc,statementCount_Syn_AReturn :: Int}+wrap_AReturn :: T_AReturn ->+                Inh_AReturn ->+                Syn_AReturn+wrap_AReturn sem (Inh_AReturn _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_AReturn _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty _lhsOstatementCount))+sem_AReturn_AReturn :: Region ->+                       T_MExprList ->+                       T_AReturn+sem_AReturn_AReturn pos_ values_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _valuesOcomments :: ([MToken])+              _lhsOcomments :: ([MToken])+              _valuesOforceMultiline :: Bool+              _valuesOsomeElementsInListAreMultiline :: Bool+              _lhsOstatementCount :: Int+              _lhsOcopy :: AReturn+              _valuesOindent :: Int+              _valuesOppconf :: PrettyPrintConfig+              _valuesIcomments :: ([MToken])+              _valuesIcopy :: MExprList+              _valuesIisAssociative :: Bool+              _valuesIisLast :: Bool+              _valuesIisMultiline :: Bool+              _valuesIpos :: Region+              _valuesIprecedence :: OperatorLevel+              _valuesIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 864 "src/GLua/AG/PrettyPrint.ag" #-}+                   renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore    )+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "return")+                   <-> _valuesIpretty+                   <> _semicolon+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter    )+                   {-# LINE 509 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 870 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valuesIisMultiline+                   || not (null $ fst _commentsBefore    )+                   || not (null $ fst _commentsAfter    )+                   {-# LINE 516 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _semicolon =+                  ({-# LINE 874 "src/GLua/AG/PrettyPrint.ag" #-}+                   if semicolons _lhsIppconf then zchr ';' else empty+                   {-# LINE 521 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsBefore =+                  ({-# LINE 875 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `before` pos_) _lhsIcomments+                   {-# LINE 526 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valuesOcomments =+                  ({-# LINE 876 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsBefore+                   {-# LINE 531 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfter =+                  ({-# LINE 877 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeOrOnLine` (rgOr _valuesIpos pos_)) _valuesIcomments+                   {-# LINE 536 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 879 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfter+                   {-# LINE 541 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valuesOforceMultiline =+                  ({-# LINE 883 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 546 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valuesOsomeElementsInListAreMultiline =+                  ({-# LINE 884 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 551 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstatementCount =+                  ({-# LINE 885 "src/GLua/AG/PrettyPrint.ag" #-}+                   1+                   {-# LINE 556 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AReturn pos_ _valuesIcopy+                   {-# LINE 561 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 566 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valuesOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 571 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valuesOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 576 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _valuesIcomments,_valuesIcopy,_valuesIisAssociative,_valuesIisLast,_valuesIisMultiline,_valuesIpos,_valuesIprecedence,_valuesIpretty) =+                  values_ _valuesOcomments _valuesOforceMultiline _valuesOindent _valuesOppconf _valuesOsomeElementsInListAreMultiline+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount)))+sem_AReturn_NoReturn :: T_AReturn+sem_AReturn_NoReturn =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOstatementCount :: Int+              _lhsOisMultiline :: Bool+              _lhsOcopy :: AReturn+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 887 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 595 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstatementCount =+                  ({-# LINE 888 "src/GLua/AG/PrettyPrint.ag" #-}+                   0+                   {-# LINE 600 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 889 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 605 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   NoReturn+                   {-# LINE 610 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 615 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 620 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount)))+-- AST ---------------------------------------------------------+-- cata+sem_AST :: AST ->+           T_AST+sem_AST (AST _comments _chunk) =+    (sem_AST_AST _comments (sem_Block _chunk))+-- semantic domain+type T_AST = Int ->+             PrettyPrintConfig ->+             ( AST,Bool,Doc)+data Inh_AST = Inh_AST {indent_Inh_AST :: Int,ppconf_Inh_AST :: PrettyPrintConfig}+data Syn_AST = Syn_AST {copy_Syn_AST :: AST,isMultiline_Syn_AST :: Bool,pretty_Syn_AST :: Doc}+wrap_AST :: T_AST ->+            Inh_AST ->+            Syn_AST+wrap_AST sem (Inh_AST _lhsIindent _lhsIppconf) =+    (let ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIindent _lhsIppconf+     in  (Syn_AST _lhsOcopy _lhsOisMultiline _lhsOpretty))+sem_AST_AST :: ([MToken]) ->+               T_Block ->+               T_AST+sem_AST_AST comments_ chunk_ =+    (\ _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _chunkOcomments :: ([MToken])+              _chunkOstatRegion :: Region+              _chunkOforceMultiline :: Bool+              _lhsOcopy :: AST+              _chunkOindent :: Int+              _chunkOppconf :: PrettyPrintConfig+              _chunkIcomments :: ([MToken])+              _chunkIcopy :: Block+              _chunkIisMultiline :: Bool+              _chunkIpretty :: Doc+              _chunkIstatementCount :: Int+              _lhsOpretty =+                  ({-# LINE 621 "src/GLua/AG/PrettyPrint.ag" #-}+                   _chunkIpretty $+$ _prettyComments+                   {-# LINE 663 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 622 "src/GLua/AG/PrettyPrint.ag" #-}+                   _chunkIisMultiline+                   {-# LINE 668 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettyComments =+                  ({-# LINE 623 "src/GLua/AG/PrettyPrint.ag" #-}+                   renderMLComments _lhsIppconf _lhsIindent _chunkIcomments+                   {-# LINE 673 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _chunkOcomments =+                  ({-# LINE 624 "src/GLua/AG/PrettyPrint.ag" #-}+                   comments_+                   {-# LINE 678 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _chunkOstatRegion =+                  ({-# LINE 625 "src/GLua/AG/PrettyPrint.ag" #-}+                   emptyRg+                   {-# LINE 683 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _chunkOforceMultiline =+                  ({-# LINE 626 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 688 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AST comments_ _chunkIcopy+                   {-# LINE 693 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 698 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _chunkOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 703 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _chunkOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 708 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _chunkIcomments,_chunkIcopy,_chunkIisMultiline,_chunkIpretty,_chunkIstatementCount) =+                  chunk_ _chunkOcomments _chunkOforceMultiline _chunkOindent _chunkOppconf _chunkOstatRegion+          in  ( _lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+-- Args --------------------------------------------------------+-- cata+sem_Args :: Args ->+            T_Args+sem_Args (ListArgs _args) =+    (sem_Args_ListArgs (sem_MExprList _args))+sem_Args (TableArg _arg) =+    (sem_Args_TableArg (sem_FieldList _arg))+sem_Args (StringArg _arg) =+    (sem_Args_StringArg _arg)+-- semantic domain+type T_Args = ([MToken]) ->+              Bool ->+              Int ->+              PrettyPrintConfig ->+              ( ([MToken]),Args,Bool,Doc)+data Inh_Args = Inh_Args {comments_Inh_Args :: ([MToken]),forceMultiline_Inh_Args :: Bool,indent_Inh_Args :: Int,ppconf_Inh_Args :: PrettyPrintConfig}+data Syn_Args = Syn_Args {comments_Syn_Args :: ([MToken]),copy_Syn_Args :: Args,isMultiline_Syn_Args :: Bool,pretty_Syn_Args :: Doc}+wrap_Args :: T_Args ->+             Inh_Args ->+             Syn_Args+wrap_Args sem (Inh_Args _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_Args _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))+sem_Args_ListArgs :: T_MExprList ->+                     T_Args+sem_Args_ListArgs args_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _argsOindent :: Int+              _argsOsomeElementsInListAreMultiline :: Bool+              _lhsOcopy :: Args+              _lhsOcomments :: ([MToken])+              _argsOcomments :: ([MToken])+              _argsOforceMultiline :: Bool+              _argsOppconf :: PrettyPrintConfig+              _argsIcomments :: ([MToken])+              _argsIcopy :: MExprList+              _argsIisAssociative :: Bool+              _argsIisLast :: Bool+              _argsIisMultiline :: Bool+              _argsIpos :: Region+              _argsIprecedence :: OperatorLevel+              _argsIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 1062 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _argsIisMultiline then+                       zchr '(' $+$+                       _argsIpretty $+$+                       indent _lhsIppconf _lhsIindent (zchr ')')+                   else+                       parens _lhsIppconf _emptyParams     _argsIpretty+                   {-# LINE 769 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1069 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argsIisMultiline+                   {-# LINE 774 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _emptyParams =+                  ({-# LINE 1070 "src/GLua/AG/PrettyPrint.ag" #-}+                   toEmpty $ null _argsIcopy+                   {-# LINE 779 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOindent =+                  ({-# LINE 1071 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _argsIisMultiline then _lhsIindent + 1 else 0+                   {-# LINE 784 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOsomeElementsInListAreMultiline =+                  ({-# LINE 1072 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 789 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ListArgs _argsIcopy+                   {-# LINE 794 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 799 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argsIcomments+                   {-# LINE 804 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 809 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 814 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 819 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _argsIcomments,_argsIcopy,_argsIisAssociative,_argsIisLast,_argsIisMultiline,_argsIpos,_argsIprecedence,_argsIpretty) =+                  args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf _argsOsomeElementsInListAreMultiline+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+sem_Args_TableArg :: T_FieldList ->+                     T_Args+sem_Args_TableArg arg_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _argOindent :: Int+              _argOsomeElementsInListAreMultiline :: Bool+              _lhsOcopy :: Args+              _lhsOcomments :: ([MToken])+              _argOcomments :: ([MToken])+              _argOforceMultiline :: Bool+              _argOppconf :: PrettyPrintConfig+              _argIcomments :: ([MToken])+              _argIcopy :: FieldList+              _argIisMultiline :: Bool+              _argIisNil :: Bool+              _argIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 1074 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _argIisMultiline then _prettyMulti     else _prettySingle+                   {-# LINE 848 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1075 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argIisMultiline+                   {-# LINE 853 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettyMulti =+                  ({-# LINE 1076 "src/GLua/AG/PrettyPrint.ag" #-}+                   zchr '{' $+$ _argIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}')+                   {-# LINE 858 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettySingle =+                  ({-# LINE 1077 "src/GLua/AG/PrettyPrint.ag" #-}+                   braces _lhsIppconf _emptyContents     _argIpretty+                   {-# LINE 863 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _emptyContents =+                  ({-# LINE 1078 "src/GLua/AG/PrettyPrint.ag" #-}+                   toEmpty $ null _argIcopy+                   {-# LINE 868 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argOindent =+                  ({-# LINE 1079 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + (if _argIisMultiline then 1 else 0)+                   {-# LINE 873 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argOsomeElementsInListAreMultiline =+                  ({-# LINE 1080 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 878 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   TableArg _argIcopy+                   {-# LINE 883 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 888 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argIcomments+                   {-# LINE 893 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 898 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 903 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 908 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _argIcomments,_argIcopy,_argIisMultiline,_argIisNil,_argIpretty) =+                  arg_ _argOcomments _argOforceMultiline _argOindent _argOppconf _argOsomeElementsInListAreMultiline+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+sem_Args_StringArg :: MToken ->+                      T_Args+sem_Args_StringArg arg_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOcopy :: Args+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1082 "src/GLua/AG/PrettyPrint.ag" #-}+                   tok arg_+                   {-# LINE 927 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1083 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 932 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   StringArg arg_+                   {-# LINE 937 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 942 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 947 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+-- BinOp -------------------------------------------------------+-- cata+sem_BinOp :: BinOp ->+             T_BinOp+sem_BinOp (AOr) =+    (sem_BinOp_AOr)+sem_BinOp (AAnd) =+    (sem_BinOp_AAnd)+sem_BinOp (ALT) =+    (sem_BinOp_ALT)+sem_BinOp (AGT) =+    (sem_BinOp_AGT)+sem_BinOp (ALEQ) =+    (sem_BinOp_ALEQ)+sem_BinOp (AGEQ) =+    (sem_BinOp_AGEQ)+sem_BinOp (ANEq) =+    (sem_BinOp_ANEq)+sem_BinOp (AEq) =+    (sem_BinOp_AEq)+sem_BinOp (AConcatenate) =+    (sem_BinOp_AConcatenate)+sem_BinOp (APlus) =+    (sem_BinOp_APlus)+sem_BinOp (BinMinus) =+    (sem_BinOp_BinMinus)+sem_BinOp (AMultiply) =+    (sem_BinOp_AMultiply)+sem_BinOp (ADivide) =+    (sem_BinOp_ADivide)+sem_BinOp (AModulus) =+    (sem_BinOp_AModulus)+sem_BinOp (APower) =+    (sem_BinOp_APower)+-- semantic domain+type T_BinOp = ([MToken]) ->+               Int ->+               PrettyPrintConfig ->+               ( ([MToken]),BinOp,Bool,Bool,OperatorLevel,Doc)+data Inh_BinOp = Inh_BinOp {comments_Inh_BinOp :: ([MToken]),indent_Inh_BinOp :: Int,ppconf_Inh_BinOp :: PrettyPrintConfig}+data Syn_BinOp = Syn_BinOp {comments_Syn_BinOp :: ([MToken]),copy_Syn_BinOp :: BinOp,isAssociative_Syn_BinOp :: Bool,isMultiline_Syn_BinOp :: Bool,precedence_Syn_BinOp :: OperatorLevel,pretty_Syn_BinOp :: Doc}+wrap_BinOp :: T_BinOp ->+              Inh_BinOp ->+              Syn_BinOp+wrap_BinOp sem (Inh_BinOp _lhsIcomments _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf+     in  (Syn_BinOp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_BinOp_AOr :: T_BinOp+sem_BinOp_AOr =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1190 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText (if cStyle _lhsIppconf then "||" else "or")+                   {-# LINE 1011 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1191 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1016 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1192 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel1+                   {-# LINE 1021 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1193 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1026 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AOr+                   {-# LINE 1031 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1036 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1041 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AAnd :: T_BinOp+sem_BinOp_AAnd =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1185 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText (if cStyle _lhsIppconf then "&&" else "and")+                   {-# LINE 1058 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1186 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1063 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1187 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel2+                   {-# LINE 1068 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1188 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1073 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AAnd+                   {-# LINE 1078 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1083 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1088 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_ALT :: T_BinOp+sem_BinOp_ALT =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1155 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "<"+                   {-# LINE 1105 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1156 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1110 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1157 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel3+                   {-# LINE 1115 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1158 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1120 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ALT+                   {-# LINE 1125 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1130 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1135 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AGT :: T_BinOp+sem_BinOp_AGT =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1165 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText ">"+                   {-# LINE 1152 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1166 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1157 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1167 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel3+                   {-# LINE 1162 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1168 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1167 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AGT+                   {-# LINE 1172 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1177 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1182 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_ALEQ :: T_BinOp+sem_BinOp_ALEQ =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1160 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "<="+                   {-# LINE 1199 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1161 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1204 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1162 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel3+                   {-# LINE 1209 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1163 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1214 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ALEQ+                   {-# LINE 1219 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1224 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1229 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AGEQ :: T_BinOp+sem_BinOp_AGEQ =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1170 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText ">="+                   {-# LINE 1246 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1171 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1251 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1172 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel3+                   {-# LINE 1256 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1173 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1261 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AGEQ+                   {-# LINE 1266 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1271 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1276 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_ANEq :: T_BinOp+sem_BinOp_ANEq =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1180 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText (if cStyle _lhsIppconf then "!=" else "~=")+                   {-# LINE 1293 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1181 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1298 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1182 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel3+                   {-# LINE 1303 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1183 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1308 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ANEq+                   {-# LINE 1313 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1318 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1323 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AEq :: T_BinOp+sem_BinOp_AEq =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1175 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "=="+                   {-# LINE 1340 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1176 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1345 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1177 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel3+                   {-# LINE 1350 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1178 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1355 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AEq+                   {-# LINE 1360 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1365 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1370 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AConcatenate :: T_BinOp+sem_BinOp_AConcatenate =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1150 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText ".."+                   {-# LINE 1387 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1151 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1392 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1152 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel4+                   {-# LINE 1397 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1153 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1402 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AConcatenate+                   {-# LINE 1407 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1412 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1417 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_APlus :: T_BinOp+sem_BinOp_APlus =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1120 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "+"+                   {-# LINE 1434 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1121 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1439 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1122 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel5+                   {-# LINE 1444 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1123 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1449 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   APlus+                   {-# LINE 1454 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1459 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1464 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_BinMinus :: T_BinOp+sem_BinOp_BinMinus =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1125 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "-"+                   {-# LINE 1481 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1126 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1486 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1127 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel5+                   {-# LINE 1491 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1128 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1496 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   BinMinus+                   {-# LINE 1501 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1506 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1511 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AMultiply :: T_BinOp+sem_BinOp_AMultiply =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1130 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "*"+                   {-# LINE 1528 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1131 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1533 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1132 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel6+                   {-# LINE 1538 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1133 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1543 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AMultiply+                   {-# LINE 1548 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1553 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1558 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_ADivide :: T_BinOp+sem_BinOp_ADivide =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1135 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "/"+                   {-# LINE 1575 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1136 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1580 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1137 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel6+                   {-# LINE 1585 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1138 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1590 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ADivide+                   {-# LINE 1595 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1600 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1605 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_AModulus :: T_BinOp+sem_BinOp_AModulus =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1140 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "%"+                   {-# LINE 1622 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1141 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1627 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1142 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel6+                   {-# LINE 1632 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1143 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1637 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AModulus+                   {-# LINE 1642 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1647 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1652 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_BinOp_APower :: T_BinOp+sem_BinOp_APower =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOcopy :: BinOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1145 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "^"+                   {-# LINE 1669 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1146 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1674 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1147 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 1679 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 1148 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 1684 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   APower+                   {-# LINE 1689 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1694 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1699 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- Block -------------------------------------------------------+-- cata+sem_Block :: Block ->+             T_Block+sem_Block (Block _pos _stats _ret) =+    (sem_Block_Block _pos (sem_MStatList _stats) (sem_AReturn _ret))+-- semantic domain+type T_Block = ([MToken]) ->+               Bool ->+               Int ->+               PrettyPrintConfig ->+               Region ->+               ( ([MToken]),Block,Bool,Doc,Int)+data Inh_Block = Inh_Block {comments_Inh_Block :: ([MToken]),forceMultiline_Inh_Block :: Bool,indent_Inh_Block :: Int,ppconf_Inh_Block :: PrettyPrintConfig,statRegion_Inh_Block :: Region}+data Syn_Block = Syn_Block {comments_Syn_Block :: ([MToken]),copy_Syn_Block :: Block,isMultiline_Syn_Block :: Bool,pretty_Syn_Block :: Doc,statementCount_Syn_Block :: Int}+wrap_Block :: T_Block ->+              Inh_Block ->+              Syn_Block+wrap_Block sem (Inh_Block _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion+     in  (Syn_Block _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty _lhsOstatementCount))+sem_Block_Block :: Region ->+                   T_MStatList ->+                   T_AReturn ->+                   T_Block+sem_Block_Block pos_ stats_ ret_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOcomments :: ([MToken])+              _lhsOstatementCount :: Int+              _lhsOcopy :: Block+              _lhsOisMultiline :: Bool+              _statsOcomments :: ([MToken])+              _statsOforceMultiline :: Bool+              _statsOindent :: Int+              _statsOppconf :: PrettyPrintConfig+              _statsOstatRegion :: Region+              _retOcomments :: ([MToken])+              _retOforceMultiline :: Bool+              _retOindent :: Int+              _retOppconf :: PrettyPrintConfig+              _statsIcomments :: ([MToken])+              _statsIcopy :: MStatList+              _statsIisLast :: Bool+              _statsIisMultiline :: Bool+              _statsIpretty :: Doc+              _statsIstartsWithExprPrefixExpression :: Bool+              _statsIstatementCount :: Int+              _retIcomments :: ([MToken])+              _retIcopy :: AReturn+              _retIisMultiline :: Bool+              _retIpretty :: Doc+              _retIstatementCount :: Int+              _lhsOpretty =+                  ({-# LINE 630 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _isMultiline+                   then _statsIpretty $+$ _retIpretty $+$ _prettyCommentsAfter+                   else _statsIpretty <-> _retIpretty+                   {-# LINE 1764 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statementCount =+                  ({-# LINE 634 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statsIstatementCount + _retIstatementCount+                   {-# LINE 1769 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _isMultiline =+                  ({-# LINE 635 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statsIisMultiline || _retIisMultiline || _statementCount     > 1 || not (null $ fst $ _commentsAfter    )+                   {-# LINE 1774 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfter =+                  ({-# LINE 636 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeEnd` pos_) _retIcomments+                   {-# LINE 1779 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettyCommentsAfter =+                  ({-# LINE 637 "src/GLua/AG/PrettyPrint.ag" #-}+                   renderMLComments _lhsIppconf _lhsIindent $ fst _commentsAfter+                   {-# LINE 1784 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 638 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfter+                   {-# LINE 1789 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstatementCount =+                  ({-# LINE 324 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statementCount+                   {-# LINE 1794 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   Block pos_ _statsIcopy _retIcopy+                   {-# LINE 1799 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1804 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}+                   _isMultiline+                   {-# LINE 1809 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1814 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 1819 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statsOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 1824 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 1829 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statsOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 1834 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _retOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statsIcomments+                   {-# LINE 1839 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _retOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 1844 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _retOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 1849 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _retOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 1854 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _statsIcomments,_statsIcopy,_statsIisLast,_statsIisMultiline,_statsIpretty,_statsIstartsWithExprPrefixExpression,_statsIstatementCount) =+                  stats_ _statsOcomments _statsOforceMultiline _statsOindent _statsOppconf _statsOstatRegion+              ( _retIcomments,_retIcopy,_retIisMultiline,_retIpretty,_retIstatementCount) =+                  ret_ _retOcomments _retOforceMultiline _retOindent _retOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty,_lhsOstatementCount)))+-- Declaration -------------------------------------------------+-- cata+sem_Declaration :: Declaration ->+                   T_Declaration+sem_Declaration ( x1,x2) =+    (sem_Declaration_Tuple (sem_PrefixExp x1) (sem_MaybeMExpr x2))+-- semantic domain+type T_Declaration = ([MToken]) ->+                     Bool ->+                     Int ->+                     PrettyPrintConfig ->+                     ( ([MToken]),Declaration,Bool,Doc,Bool,Bool,Doc,Bool,Doc)+data Inh_Declaration = Inh_Declaration {comments_Inh_Declaration :: ([MToken]),forceMultiline_Inh_Declaration :: Bool,indent_Inh_Declaration :: Int,ppconf_Inh_Declaration :: PrettyPrintConfig}+data Syn_Declaration = Syn_Declaration {comments_Syn_Declaration :: ([MToken]),copy_Syn_Declaration :: Declaration,endsWithPrefixExpression_Syn_Declaration :: Bool,exprPretty_Syn_Declaration :: Doc,isDefined_Syn_Declaration :: Bool,isMultiline_Syn_Declaration :: Bool,pretty_Syn_Declaration :: Doc,startsWithExprPrefixExpression_Syn_Declaration :: Bool,varPretty_Syn_Declaration :: Doc}+wrap_Declaration :: T_Declaration ->+                    Inh_Declaration ->+                    Syn_Declaration+wrap_Declaration sem (Inh_Declaration _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_Declaration _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty))+sem_Declaration_Tuple :: T_PrefixExp ->+                         T_MaybeMExpr ->+                         T_Declaration+sem_Declaration_Tuple x1_ x2_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOvarPretty :: Doc+              _lhsOexprPretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _x1OparentOperatorPrecedence :: OperatorLevel+              _x1OparentOperatorAssociative :: Bool+              _lhsOisDefined :: Bool+              _lhsOcopy :: Declaration+              _lhsOcomments :: ([MToken])+              _lhsOpretty :: Doc+              _x1Ocomments :: ([MToken])+              _x1OforceMultiline :: Bool+              _x1Oindent :: Int+              _x1Oppconf :: PrettyPrintConfig+              _x2Ocomments :: ([MToken])+              _x2OforceMultiline :: Bool+              _x2Oindent :: Int+              _x2Oppconf :: PrettyPrintConfig+              _x1Icomments :: ([MToken])+              _x1Icopy :: PrefixExp+              _x1IisAssociative :: Bool+              _x1IisLiteral :: Bool+              _x1IisMultiline :: Bool+              _x1Iprecedence :: OperatorLevel+              _x1Ipretty :: Doc+              _x1IstartsWithExprPrefixExpression :: Bool+              _x2Icomments :: ([MToken])+              _x2Icopy :: MaybeMExpr+              _x2IendsWithPrefixExpression :: Bool+              _x2IisAssociative :: Bool+              _x2IisDefined :: Bool+              _x2IisMultiline :: Bool+              _x2Iprecedence :: OperatorLevel+              _x2Ipretty :: Doc+              _lhsOvarPretty =+                  ({-# LINE 522 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x1Ipretty+                   {-# LINE 1927 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOexprPretty =+                  ({-# LINE 523 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x2Ipretty+                   {-# LINE 1932 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 524 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x1IstartsWithExprPrefixExpression+                   {-# LINE 1937 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 525 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x2IendsWithPrefixExpression+                   {-# LINE 1942 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 526 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x1IisMultiline || _x2IisMultiline+                   {-# LINE 1947 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1OparentOperatorPrecedence =+                  ({-# LINE 527 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 1952 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1OparentOperatorAssociative =+                  ({-# LINE 528 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 1957 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisDefined =+                  ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x2IisDefined+                   {-# LINE 1962 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   (_x1Icopy,_x2Icopy)+                   {-# LINE 1967 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 1972 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x2Icomments+                   {-# LINE 1977 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x2Ipretty+                   {-# LINE 1982 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1Ocomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 1987 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1OforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 1992 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1Oindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 1997 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1Oppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 2002 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2Ocomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x1Icomments+                   {-# LINE 2007 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2OforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 2012 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2Oindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 2017 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2Oppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 2022 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _x1Icomments,_x1Icopy,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Iprecedence,_x1Ipretty,_x1IstartsWithExprPrefixExpression) =+                  x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf+              ( _x2Icomments,_x2Icopy,_x2IendsWithPrefixExpression,_x2IisAssociative,_x2IisDefined,_x2IisMultiline,_x2Iprecedence,_x2Ipretty) =+                  x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty)))+-- Else --------------------------------------------------------+-- cata+sem_Else :: Else ->+            T_Else+sem_Else (Prelude.Just x) =+    (sem_Else_Just (sem_MElse x))+sem_Else Prelude.Nothing =+    sem_Else_Nothing+-- semantic domain+type T_Else = ([MToken]) ->+              Bool ->+              Int ->+              PrettyPrintConfig ->+              Region ->+              ( ([MToken]),Else,Bool,Bool,Region,Doc)+data Inh_Else = Inh_Else {comments_Inh_Else :: ([MToken]),forceMultiline_Inh_Else :: Bool,indent_Inh_Else :: Int,ppconf_Inh_Else :: PrettyPrintConfig,statRegion_Inh_Else :: Region}+data Syn_Else = Syn_Else {comments_Syn_Else :: ([MToken]),copy_Syn_Else :: Else,elsesExist_Syn_Else :: Bool,isMultiline_Syn_Else :: Bool,pos_Syn_Else :: Region,pretty_Syn_Else :: Doc}+wrap_Else :: T_Else ->+             Inh_Else ->+             Syn_Else+wrap_Else sem (Inh_Else _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion+     in  (Syn_Else _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_Else_Just :: T_MElse ->+                 T_Else+sem_Else_Just just_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOelsesExist :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: Else+              _lhsOcomments :: ([MToken])+              _lhsOpos :: Region+              _lhsOpretty :: Doc+              _justOcomments :: ([MToken])+              _justOforceMultiline :: Bool+              _justOindent :: Int+              _justOppconf :: PrettyPrintConfig+              _justOstatRegion :: Region+              _justIcomments :: ([MToken])+              _justIcopy :: MElse+              _justIelsesExist :: Bool+              _justIisMultiline :: Bool+              _justIpos :: Region+              _justIpretty :: Doc+              _lhsOelsesExist =+                  ({-# LINE 592 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2080 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 593 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIisMultiline+                   {-# LINE 2085 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   Just _justIcopy+                   {-# LINE 2090 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2095 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIcomments+                   {-# LINE 2100 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 310 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIpos+                   {-# LINE 2105 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIpretty+                   {-# LINE 2110 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2115 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 2120 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 2125 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 2130 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 2135 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _justIcomments,_justIcopy,_justIelsesExist,_justIisMultiline,_justIpos,_justIpretty) =+                  just_ _justOcomments _justOforceMultiline _justOindent _justOppconf _justOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+sem_Else_Nothing :: T_Else+sem_Else_Nothing =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOpos :: Region+              _lhsOisMultiline :: Bool+              _lhsOelsesExist :: Bool+              _lhsOcopy :: Else+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 595 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 2156 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 596 "src/GLua/AG/PrettyPrint.ag" #-}+                   emptyRg+                   {-# LINE 2161 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 597 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2166 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOelsesExist =+                  ({-# LINE 327 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2171 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   Nothing+                   {-# LINE 2176 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2181 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2186 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- ElseIf ------------------------------------------------------+-- cata+sem_ElseIf :: ElseIf ->+              T_ElseIf+sem_ElseIf ( x1,x2) =+    (sem_ElseIf_Tuple (sem_MExpr x1) (sem_Block x2))+-- semantic domain+type T_ElseIf = ([MToken]) ->+                Bool ->+                Int ->+                PrettyPrintConfig ->+                ( ([MToken]),ElseIf,Bool,Doc)+data Inh_ElseIf = Inh_ElseIf {comments_Inh_ElseIf :: ([MToken]),forceMultiline_Inh_ElseIf :: Bool,indent_Inh_ElseIf :: Int,ppconf_Inh_ElseIf :: PrettyPrintConfig}+data Syn_ElseIf = Syn_ElseIf {comments_Syn_ElseIf :: ([MToken]),copy_Syn_ElseIf :: ElseIf,isMultiline_Syn_ElseIf :: Bool,pretty_Syn_ElseIf :: Doc}+wrap_ElseIf :: T_ElseIf ->+               Inh_ElseIf ->+               Syn_ElseIf+wrap_ElseIf sem (Inh_ElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_ElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))+sem_ElseIf_Tuple :: T_MExpr ->+                    T_Block ->+                    T_ElseIf+sem_ElseIf_Tuple x1_ x2_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _x2Oindent :: Int+              _x2OstatRegion :: Region+              _x1OparentOperatorPrecedence :: OperatorLevel+              _x1OparentOperatorAssociative :: Bool+              _lhsOcopy :: ElseIf+              _lhsOcomments :: ([MToken])+              _x1Ocomments :: ([MToken])+              _x1OforceMultiline :: Bool+              _x1Oindent :: Int+              _x1Oppconf :: PrettyPrintConfig+              _x2Ocomments :: ([MToken])+              _x2OforceMultiline :: Bool+              _x2Oppconf :: PrettyPrintConfig+              _x1Icomments :: ([MToken])+              _x1Icopy :: MExpr+              _x1IendsWithPrefixExpression :: Bool+              _x1IisAssociative :: Bool+              _x1IisLiteral :: Bool+              _x1IisMultiline :: Bool+              _x1Ipos :: Region+              _x1Iprecedence :: OperatorLevel+              _x1Ipretty :: Doc+              _x2Icomments :: ([MToken])+              _x2Icopy :: Block+              _x2IisMultiline :: Bool+              _x2Ipretty :: Doc+              _x2IstatementCount :: Int+              _lhsOpretty =+                  ({-# LINE 567 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "elseif" <-> _x1Ipretty <-> zeroWidthText "then" $+$ _x2Ipretty+                   {-# LINE 2249 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 568 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x1IisMultiline || _x2IisMultiline+                   {-# LINE 2254 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2Oindent =+                  ({-# LINE 569 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 2259 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2OstatRegion =+                  ({-# LINE 570 "src/GLua/AG/PrettyPrint.ag" #-}+                   emptyRg+                   {-# LINE 2264 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1OparentOperatorPrecedence =+                  ({-# LINE 571 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 2269 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1OparentOperatorAssociative =+                  ({-# LINE 572 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2274 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   (_x1Icopy,_x2Icopy)+                   {-# LINE 2279 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2284 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x2Icomments+                   {-# LINE 2289 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1Ocomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2294 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1OforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 2299 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1Oindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 2304 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x1Oppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 2309 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2Ocomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _x1Icomments+                   {-# LINE 2314 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2OforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 2319 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _x2Oppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 2324 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _x1Icomments,_x1Icopy,_x1IendsWithPrefixExpression,_x1IisAssociative,_x1IisLiteral,_x1IisMultiline,_x1Ipos,_x1Iprecedence,_x1Ipretty) =+                  x1_ _x1Ocomments _x1OforceMultiline _x1Oindent _x1OparentOperatorAssociative _x1OparentOperatorPrecedence _x1Oppconf+              ( _x2Icomments,_x2Icopy,_x2IisMultiline,_x2Ipretty,_x2IstatementCount) =+                  x2_ _x2Ocomments _x2OforceMultiline _x2Oindent _x2Oppconf _x2OstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+-- ElseIfList --------------------------------------------------+-- cata+sem_ElseIfList :: ElseIfList ->+                  T_ElseIfList+sem_ElseIfList list =+    (Prelude.foldr sem_ElseIfList_Cons sem_ElseIfList_Nil (Prelude.map sem_MElseIf list))+-- semantic domain+type T_ElseIfList = ([MToken]) ->+                    Bool ->+                    Int ->+                    PrettyPrintConfig ->+                    ( ([MToken]),ElseIfList,Bool,Bool,Region,Doc)+data Inh_ElseIfList = Inh_ElseIfList {comments_Inh_ElseIfList :: ([MToken]),forceMultiline_Inh_ElseIfList :: Bool,indent_Inh_ElseIfList :: Int,ppconf_Inh_ElseIfList :: PrettyPrintConfig}+data Syn_ElseIfList = Syn_ElseIfList {comments_Syn_ElseIfList :: ([MToken]),copy_Syn_ElseIfList :: ElseIfList,elsesExist_Syn_ElseIfList :: Bool,isMultiline_Syn_ElseIfList :: Bool,pos_Syn_ElseIfList :: Region,pretty_Syn_ElseIfList :: Doc}+wrap_ElseIfList :: T_ElseIfList ->+                   Inh_ElseIfList ->+                   Syn_ElseIfList+wrap_ElseIfList sem (Inh_ElseIfList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_ElseIfList _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_ElseIfList_Cons :: T_MElseIf ->+                       T_ElseIfList ->+                       T_ElseIfList+sem_ElseIfList_Cons hd_ tl_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOelsesExist :: Bool+              _lhsOpos :: Region+              _lhsOisMultiline :: Bool+              _lhsOcopy :: ElseIfList+              _lhsOcomments :: ([MToken])+              _hdOcomments :: ([MToken])+              _hdOforceMultiline :: Bool+              _hdOindent :: Int+              _hdOppconf :: PrettyPrintConfig+              _tlOcomments :: ([MToken])+              _tlOforceMultiline :: Bool+              _tlOindent :: Int+              _tlOppconf :: PrettyPrintConfig+              _hdIcomments :: ([MToken])+              _hdIcopy :: MElseIf+              _hdIisMultiline :: Bool+              _hdIpos :: Region+              _hdIpretty :: Doc+              _tlIcomments :: ([MToken])+              _tlIcopy :: ElseIfList+              _tlIelsesExist :: Bool+              _tlIisMultiline :: Bool+              _tlIpos :: Region+              _tlIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 581 "src/GLua/AG/PrettyPrint.ag" #-}+                   indent _lhsIppconf _lhsIindent _hdIpretty $+$ _tlIpretty+                   {-# LINE 2387 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOelsesExist =+                  ({-# LINE 582 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2392 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 583 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIpos+                   {-# LINE 2397 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 584 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIisMultiline || _tlIisMultiline+                   {-# LINE 2402 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   (:) _hdIcopy _tlIcopy+                   {-# LINE 2407 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2412 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _tlIcomments+                   {-# LINE 2417 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2422 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 2427 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 2432 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 2437 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIcomments+                   {-# LINE 2442 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 2447 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 2452 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 2457 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIpos,_hdIpretty) =+                  hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf+              ( _tlIcomments,_tlIcopy,_tlIelsesExist,_tlIisMultiline,_tlIpos,_tlIpretty) =+                  tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+sem_ElseIfList_Nil :: T_ElseIfList+sem_ElseIfList_Nil =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOpos :: Region+              _lhsOisMultiline :: Bool+              _lhsOelsesExist :: Bool+              _lhsOcopy :: ElseIfList+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 586 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 2479 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 587 "src/GLua/AG/PrettyPrint.ag" #-}+                   emptyRg+                   {-# LINE 2484 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 588 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2489 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOelsesExist =+                  ({-# LINE 327 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2494 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   []+                   {-# LINE 2499 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2504 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2509 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- Expr --------------------------------------------------------+-- cata+sem_Expr :: Expr ->+            T_Expr+sem_Expr (ANil) =+    (sem_Expr_ANil)+sem_Expr (AFalse) =+    (sem_Expr_AFalse)+sem_Expr (ATrue) =+    (sem_Expr_ATrue)+sem_Expr (ANumber _num) =+    (sem_Expr_ANumber _num)+sem_Expr (AString _str) =+    (sem_Expr_AString _str)+sem_Expr (AVarArg) =+    (sem_Expr_AVarArg)+sem_Expr (AnonymousFunc _pars _body) =+    (sem_Expr_AnonymousFunc _pars (sem_Block _body))+sem_Expr (APrefixExpr _pexpr) =+    (sem_Expr_APrefixExpr (sem_PrefixExp _pexpr))+sem_Expr (ATableConstructor _fields) =+    (sem_Expr_ATableConstructor (sem_FieldList _fields))+sem_Expr (BinOpExpr _op _left _right) =+    (sem_Expr_BinOpExpr (sem_BinOp _op) (sem_MExpr _left) (sem_MExpr _right))+sem_Expr (UnOpExpr _op _right) =+    (sem_Expr_UnOpExpr (sem_UnOp _op) (sem_MExpr _right))+-- semantic domain+type T_Expr = ([MToken]) ->+              Bool ->+              Int ->+              Bool ->+              OperatorLevel ->+              PrettyPrintConfig ->+              Region ->+              ( ([MToken]),Expr,Bool,Bool,Bool,Bool,OperatorLevel,Doc)+data Inh_Expr = Inh_Expr {comments_Inh_Expr :: ([MToken]),forceMultiline_Inh_Expr :: Bool,indent_Inh_Expr :: Int,parentOperatorAssociative_Inh_Expr :: Bool,parentOperatorPrecedence_Inh_Expr :: OperatorLevel,ppconf_Inh_Expr :: PrettyPrintConfig,statRegion_Inh_Expr :: Region}+data Syn_Expr = Syn_Expr {comments_Syn_Expr :: ([MToken]),copy_Syn_Expr :: Expr,endsWithPrefixExpression_Syn_Expr :: Bool,isAssociative_Syn_Expr :: Bool,isLiteral_Syn_Expr :: Bool,isMultiline_Syn_Expr :: Bool,precedence_Syn_Expr :: OperatorLevel,pretty_Syn_Expr :: Doc}+wrap_Expr :: T_Expr ->+             Inh_Expr ->+             Syn_Expr+wrap_Expr sem (Inh_Expr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf _lhsIstatRegion+     in  (Syn_Expr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_Expr_ANil :: T_Expr+sem_Expr_ANil =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOisLiteral :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 979 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "nil"+                   {-# LINE 2575 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 980 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2580 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 981 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2585 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 982 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2590 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2595 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 2600 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ANil+                   {-# LINE 2605 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2610 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2615 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_AFalse :: T_Expr+sem_Expr_AFalse =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOisLiteral :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 984 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "false"+                   {-# LINE 2638 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 985 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2643 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 986 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2648 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 987 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2653 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2658 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 2663 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AFalse+                   {-# LINE 2668 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2673 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2678 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_ATrue :: T_Expr+sem_Expr_ATrue =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOisLiteral :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 989 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "true"+                   {-# LINE 2701 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 990 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2706 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 991 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2711 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 992 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2716 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2721 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 2726 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ATrue+                   {-# LINE 2731 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2736 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2741 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_ANumber :: String ->+                    T_Expr+sem_Expr_ANumber num_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOisLiteral :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 994 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText num_+                   {-# LINE 2765 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 995 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2770 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 996 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2775 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 997 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2780 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2785 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 2790 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ANumber num_+                   {-# LINE 2795 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2800 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2805 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_AString :: MToken ->+                    T_Expr+sem_Expr_AString str_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOisLiteral :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 999 "src/GLua/AG/PrettyPrint.ag" #-}+                   tok str_+                   {-# LINE 2829 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 1000 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2834 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 1001 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2839 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1002 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2844 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2849 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 2854 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AString str_+                   {-# LINE 2859 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2864 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2869 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_AVarArg :: T_Expr+sem_Expr_AVarArg =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOisLiteral :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1004 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "..."+                   {-# LINE 2892 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 1005 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 2897 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 1006 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2902 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1007 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2907 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2912 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 2917 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AVarArg+                   {-# LINE 2922 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 2927 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 2932 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_AnonymousFunc :: ([MToken]) ->+                          T_Block ->+                          T_Expr+sem_Expr_AnonymousFunc pars_ body_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOendsWithPrefixExpression :: Bool+              _bodyOindent :: Int+              _lhsOpretty :: Doc+              _lhsOisAssociative :: Bool+              _lhsOisLiteral :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _lhsOisMultiline :: Bool+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _isMultiline =+                  ({-# LINE 1009 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline || _bodyIisMultiline+                   {-# LINE 2967 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 1010 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 2972 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _singleLinePretty =+                  ({-# LINE 1011 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "function"+                   <> parens _lhsIppconf _emptyParams     (printList tok (render _comma    ) pars_)+                   <-> _bodyIpretty+                   <-> zeroWidthText "end"+                   {-# LINE 2980 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _multilinePretty =+                  ({-# LINE 1016 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "function"+                   <> parens _lhsIppconf _emptyParams     (printList tok (render _comma    ) pars_)+                   $+$ _bodyIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+                   {-# LINE 2988 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _comma =+                  ({-# LINE 1021 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+                   <> zchr ','+                   <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+                   {-# LINE 2995 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _emptyParams =+                  ({-# LINE 1025 "src/GLua/AG/PrettyPrint.ag" #-}+                   toEmpty $ null pars_+                   {-# LINE 3000 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 1026 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _isMultiline     then _lhsIindent + 1 else 0+                   {-# LINE 3005 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 1027 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _isMultiline     then _multilinePretty     else _singleLinePretty+                   {-# LINE 3010 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 3015 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 3020 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 3025 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AnonymousFunc pars_ _bodyIcopy+                   {-# LINE 3030 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 3035 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 3040 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}+                   _isMultiline+                   {-# LINE 3045 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 3050 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3055 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3060 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 3065 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_APrefixExpr :: T_PrefixExp ->+                        T_Expr+sem_Expr_APrefixExpr pexpr_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOisLiteral :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _pexprOcomments :: ([MToken])+              _pexprOforceMultiline :: Bool+              _pexprOindent :: Int+              _pexprOparentOperatorAssociative :: Bool+              _pexprOparentOperatorPrecedence :: OperatorLevel+              _pexprOppconf :: PrettyPrintConfig+              _pexprIcomments :: ([MToken])+              _pexprIcopy :: PrefixExp+              _pexprIisAssociative :: Bool+              _pexprIisLiteral :: Bool+              _pexprIisMultiline :: Bool+              _pexprIprecedence :: OperatorLevel+              _pexprIpretty :: Doc+              _pexprIstartsWithExprPrefixExpression :: Bool+              _lhsOpretty =+                  ({-# LINE 1029 "src/GLua/AG/PrettyPrint.ag" #-}+                   _pexprIpretty+                   {-# LINE 3105 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 1030 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 3110 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1031 "src/GLua/AG/PrettyPrint.ag" #-}+                   _pexprIisMultiline+                   {-# LINE 3115 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _pexprIisAssociative+                   {-# LINE 3120 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}+                   _pexprIisLiteral+                   {-# LINE 3125 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   _pexprIprecedence+                   {-# LINE 3130 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   APrefixExpr _pexprIcopy+                   {-# LINE 3135 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 3140 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _pexprIcomments+                   {-# LINE 3145 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _pexprOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 3150 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _pexprOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3155 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _pexprOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3160 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _pexprOparentOperatorAssociative =+                  ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIparentOperatorAssociative+                   {-# LINE 3165 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _pexprOparentOperatorPrecedence =+                  ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIparentOperatorPrecedence+                   {-# LINE 3170 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _pexprOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3175 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _pexprIcomments,_pexprIcopy,_pexprIisAssociative,_pexprIisLiteral,_pexprIisMultiline,_pexprIprecedence,_pexprIpretty,_pexprIstartsWithExprPrefixExpression) =+                  pexpr_ _pexprOcomments _pexprOforceMultiline _pexprOindent _pexprOparentOperatorAssociative _pexprOparentOperatorPrecedence _pexprOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_ATableConstructor :: T_FieldList ->+                              T_Expr+sem_Expr_ATableConstructor fields_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOisLiteral :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _fieldsOindent :: Int+              _fieldsOsomeElementsInListAreMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _lhsOisMultiline :: Bool+              _fieldsOcomments :: ([MToken])+              _fieldsOforceMultiline :: Bool+              _fieldsOppconf :: PrettyPrintConfig+              _fieldsIcomments :: ([MToken])+              _fieldsIcopy :: FieldList+              _fieldsIisMultiline :: Bool+              _fieldsIisNil :: Bool+              _fieldsIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 1033 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _isMultiline     then _prettyMulti     else _prettySingle+                   {-# LINE 3211 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _isMultiline =+                  ({-# LINE 1034 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline || _fieldsIisMultiline+                   {-# LINE 3216 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 1035 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 3221 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 1036 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 3226 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettyMulti =+                  ({-# LINE 1037 "src/GLua/AG/PrettyPrint.ag" #-}+                   zchr '{' $+$ _fieldsIpretty $+$ indent _lhsIppconf _lhsIindent (zchr '}')+                   {-# LINE 3231 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettySingle =+                  ({-# LINE 1038 "src/GLua/AG/PrettyPrint.ag" #-}+                   braces _lhsIppconf _emptyContents     _fieldsIpretty+                   {-# LINE 3236 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _emptyContents =+                  ({-# LINE 1039 "src/GLua/AG/PrettyPrint.ag" #-}+                   toEmpty $ null _fieldsIcopy+                   {-# LINE 3241 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fieldsOindent =+                  ({-# LINE 1040 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + (if _fieldsIisMultiline then 1 else 0)+                   {-# LINE 3246 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fieldsOsomeElementsInListAreMultiline =+                  ({-# LINE 1041 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 3251 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 3256 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 3261 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ATableConstructor _fieldsIcopy+                   {-# LINE 3266 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 3271 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _fieldsIcomments+                   {-# LINE 3276 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}+                   _isMultiline+                   {-# LINE 3281 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fieldsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 3286 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fieldsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3291 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fieldsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3296 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _fieldsIcomments,_fieldsIcopy,_fieldsIisMultiline,_fieldsIisNil,_fieldsIpretty) =+                  fields_ _fieldsOcomments _fieldsOforceMultiline _fieldsOindent _fieldsOppconf _fieldsOsomeElementsInListAreMultiline+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_BinOpExpr :: T_BinOp ->+                      T_MExpr ->+                      T_MExpr ->+                      T_Expr+sem_Expr_BinOpExpr op_ left_ right_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOisMultiline :: Bool+              _leftOparentOperatorPrecedence :: OperatorLevel+              _rightOparentOperatorPrecedence :: OperatorLevel+              _leftOparentOperatorAssociative :: Bool+              _rightOparentOperatorAssociative :: Bool+              _lhsOisAssociative :: Bool+              _lhsOisLiteral :: Bool+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _opOcomments :: ([MToken])+              _opOindent :: Int+              _opOppconf :: PrettyPrintConfig+              _leftOcomments :: ([MToken])+              _leftOforceMultiline :: Bool+              _leftOindent :: Int+              _leftOppconf :: PrettyPrintConfig+              _rightOcomments :: ([MToken])+              _rightOforceMultiline :: Bool+              _rightOindent :: Int+              _rightOppconf :: PrettyPrintConfig+              _opIcomments :: ([MToken])+              _opIcopy :: BinOp+              _opIisAssociative :: Bool+              _opIisMultiline :: Bool+              _opIprecedence :: OperatorLevel+              _opIpretty :: Doc+              _leftIcomments :: ([MToken])+              _leftIcopy :: MExpr+              _leftIendsWithPrefixExpression :: Bool+              _leftIisAssociative :: Bool+              _leftIisLiteral :: Bool+              _leftIisMultiline :: Bool+              _leftIpos :: Region+              _leftIprecedence :: OperatorLevel+              _leftIpretty :: Doc+              _rightIcomments :: ([MToken])+              _rightIcopy :: MExpr+              _rightIendsWithPrefixExpression :: Bool+              _rightIisAssociative :: Bool+              _rightIisLiteral :: Bool+              _rightIisMultiline :: Bool+              _rightIpos :: Region+              _rightIprecedence :: OperatorLevel+              _rightIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 1043 "src/GLua/AG/PrettyPrint.ag" #-}+                   _leftIpretty <-> _opIpretty <-> _rightIpretty+                   {-# LINE 3363 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 1044 "src/GLua/AG/PrettyPrint.ag" #-}+                   _rightIendsWithPrefixExpression+                   {-# LINE 3368 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1047 "src/GLua/AG/PrettyPrint.ag" #-}+                   min _opIprecedence $ min _leftIprecedence _rightIprecedence+                   {-# LINE 3373 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1048 "src/GLua/AG/PrettyPrint.ag" #-}+                   _leftIisMultiline || _rightIisMultiline+                   {-# LINE 3378 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _leftOparentOperatorPrecedence =+                  ({-# LINE 1049 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIprecedence+                   {-# LINE 3383 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOparentOperatorPrecedence =+                  ({-# LINE 1050 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIprecedence+                   {-# LINE 3388 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _leftOparentOperatorAssociative =+                  ({-# LINE 1051 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIisAssociative+                   {-# LINE 3393 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOparentOperatorAssociative =+                  ({-# LINE 1052 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIisAssociative+                   {-# LINE 3398 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIisAssociative && _leftIisAssociative && _rightIisAssociative+                   {-# LINE 3403 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}+                   ((\_ _ -> False) _leftIisLiteral _rightIisLiteral)+                   {-# LINE 3408 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   BinOpExpr _opIcopy _leftIcopy _rightIcopy+                   {-# LINE 3413 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 3418 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _rightIcomments+                   {-# LINE 3423 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _opOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 3428 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _opOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3433 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _opOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3438 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _leftOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIcomments+                   {-# LINE 3443 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _leftOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3448 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _leftOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3453 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _leftOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3458 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _leftIcomments+                   {-# LINE 3463 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3468 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3473 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3478 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _opIcomments,_opIcopy,_opIisAssociative,_opIisMultiline,_opIprecedence,_opIpretty) =+                  op_ _opOcomments _opOindent _opOppconf+              ( _leftIcomments,_leftIcopy,_leftIendsWithPrefixExpression,_leftIisAssociative,_leftIisLiteral,_leftIisMultiline,_leftIpos,_leftIprecedence,_leftIpretty) =+                  left_ _leftOcomments _leftOforceMultiline _leftOindent _leftOparentOperatorAssociative _leftOparentOperatorPrecedence _leftOppconf+              ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) =+                  right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_Expr_UnOpExpr :: T_UnOp ->+                     T_MExpr ->+                     T_Expr+sem_Expr_UnOpExpr op_ right_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOprecedence :: OperatorLevel+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _rightOparentOperatorPrecedence :: OperatorLevel+              _lhsOisAssociative :: Bool+              _lhsOisLiteral :: Bool+              _lhsOcopy :: Expr+              _lhsOcomments :: ([MToken])+              _opOcomments :: ([MToken])+              _opOindent :: Int+              _opOppconf :: PrettyPrintConfig+              _rightOcomments :: ([MToken])+              _rightOforceMultiline :: Bool+              _rightOindent :: Int+              _rightOparentOperatorAssociative :: Bool+              _rightOppconf :: PrettyPrintConfig+              _opIcomments :: ([MToken])+              _opIcopy :: UnOp+              _opIisMultiline :: Bool+              _opIpretty :: Doc+              _rightIcomments :: ([MToken])+              _rightIcopy :: MExpr+              _rightIendsWithPrefixExpression :: Bool+              _rightIisAssociative :: Bool+              _rightIisLiteral :: Bool+              _rightIisMultiline :: Bool+              _rightIpos :: Region+              _rightIprecedence :: OperatorLevel+              _rightIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 1054 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIpretty <> _rightIpretty+                   {-# LINE 3531 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 1055 "src/GLua/AG/PrettyPrint.ag" #-}+                   min _rightIprecedence OperatorLevel7+                   {-# LINE 3536 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 1056 "src/GLua/AG/PrettyPrint.ag" #-}+                   _rightIendsWithPrefixExpression+                   {-# LINE 3541 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1057 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIisMultiline || _rightIisMultiline+                   {-# LINE 3546 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOparentOperatorPrecedence =+                  ({-# LINE 1058 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel7+                   {-# LINE 3551 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _rightIisAssociative+                   {-# LINE 3556 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}+                   _rightIisLiteral+                   {-# LINE 3561 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   UnOpExpr _opIcopy _rightIcopy+                   {-# LINE 3566 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 3571 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _rightIcomments+                   {-# LINE 3576 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _opOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 3581 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _opOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3586 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _opOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3591 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _opIcomments+                   {-# LINE 3596 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3601 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3606 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOparentOperatorAssociative =+                  ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIparentOperatorAssociative+                   {-# LINE 3611 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _rightOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3616 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _opIcomments,_opIcopy,_opIisMultiline,_opIpretty) =+                  op_ _opOcomments _opOindent _opOppconf+              ( _rightIcomments,_rightIcopy,_rightIendsWithPrefixExpression,_rightIisAssociative,_rightIisLiteral,_rightIisMultiline,_rightIpos,_rightIprecedence,_rightIpretty) =+                  right_ _rightOcomments _rightOforceMultiline _rightOindent _rightOparentOperatorAssociative _rightOparentOperatorPrecedence _rightOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- ExprSuffixList ----------------------------------------------+-- cata+sem_ExprSuffixList :: ExprSuffixList ->+                      T_ExprSuffixList+sem_ExprSuffixList list =+    (Prelude.foldr sem_ExprSuffixList_Cons sem_ExprSuffixList_Nil (Prelude.map sem_PFExprSuffix list))+-- semantic domain+type T_ExprSuffixList = ([MToken]) ->+                        Bool ->+                        Int ->+                        PrettyPrintConfig ->+                        ( ([MToken]),ExprSuffixList,Bool,Bool,OperatorLevel,Doc)+data Inh_ExprSuffixList = Inh_ExprSuffixList {comments_Inh_ExprSuffixList :: ([MToken]),forceMultiline_Inh_ExprSuffixList :: Bool,indent_Inh_ExprSuffixList :: Int,ppconf_Inh_ExprSuffixList :: PrettyPrintConfig}+data Syn_ExprSuffixList = Syn_ExprSuffixList {comments_Syn_ExprSuffixList :: ([MToken]),copy_Syn_ExprSuffixList :: ExprSuffixList,isAssociative_Syn_ExprSuffixList :: Bool,isMultiline_Syn_ExprSuffixList :: Bool,precedence_Syn_ExprSuffixList :: OperatorLevel,pretty_Syn_ExprSuffixList :: Doc}+wrap_ExprSuffixList :: T_ExprSuffixList ->+                       Inh_ExprSuffixList ->+                       Syn_ExprSuffixList+wrap_ExprSuffixList sem (Inh_ExprSuffixList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_ExprSuffixList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_ExprSuffixList_Cons :: T_PFExprSuffix ->+                           T_ExprSuffixList ->+                           T_ExprSuffixList+sem_ExprSuffixList_Cons hd_ tl_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: ExprSuffixList+              _lhsOcomments :: ([MToken])+              _hdOcomments :: ([MToken])+              _hdOforceMultiline :: Bool+              _hdOindent :: Int+              _hdOppconf :: PrettyPrintConfig+              _tlOcomments :: ([MToken])+              _tlOforceMultiline :: Bool+              _tlOindent :: Int+              _tlOppconf :: PrettyPrintConfig+              _hdIcomments :: ([MToken])+              _hdIcopy :: PFExprSuffix+              _hdIisAssociative :: Bool+              _hdIisMultiline :: Bool+              _hdIprecedence :: OperatorLevel+              _hdIpretty :: Doc+              _tlIcomments :: ([MToken])+              _tlIcopy :: ExprSuffixList+              _tlIisAssociative :: Bool+              _tlIisMultiline :: Bool+              _tlIprecedence :: OperatorLevel+              _tlIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 614 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIpretty <> _tlIpretty+                   {-# LINE 3680 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 615 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIisMultiline || _tlIisMultiline+                   {-# LINE 3685 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIisAssociative && _tlIisAssociative+                   {-# LINE 3690 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   (min _hdIprecedence _tlIprecedence)+                   {-# LINE 3695 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   (:) _hdIcopy _tlIcopy+                   {-# LINE 3700 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 3705 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _tlIcomments+                   {-# LINE 3710 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 3715 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3720 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3725 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3730 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIcomments+                   {-# LINE 3735 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3740 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3745 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3750 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _hdIcomments,_hdIcopy,_hdIisAssociative,_hdIisMultiline,_hdIprecedence,_hdIpretty) =+                  hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf+              ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisMultiline,_tlIprecedence,_tlIpretty) =+                  tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_ExprSuffixList_Nil :: T_ExprSuffixList+sem_ExprSuffixList_Nil =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: ExprSuffixList+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 617 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 3772 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 618 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 3777 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 3782 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 3787 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   []+                   {-# LINE 3792 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 3797 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 3802 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- Field -------------------------------------------------------+-- cata+sem_Field :: Field ->+             T_Field+sem_Field (ExprField _key _value _sep) =+    (sem_Field_ExprField (sem_MExpr _key) (sem_MExpr _value) (sem_FieldSep _sep))+sem_Field (NamedField _key _value _sep) =+    (sem_Field_NamedField _key (sem_MExpr _value) (sem_FieldSep _sep))+sem_Field (UnnamedField _value _sep) =+    (sem_Field_UnnamedField (sem_MExpr _value) (sem_FieldSep _sep))+-- semantic domain+type T_Field = ([MToken]) ->+               Bool ->+               Int ->+               PrettyPrintConfig ->+               ( ([MToken]),Field,Bool,Bool,Region,Doc)+data Inh_Field = Inh_Field {comments_Inh_Field :: ([MToken]),forceMultiline_Inh_Field :: Bool,indent_Inh_Field :: Int,ppconf_Inh_Field :: PrettyPrintConfig}+data Syn_Field = Syn_Field {comments_Syn_Field :: ([MToken]),copy_Syn_Field :: Field,isMultiline_Syn_Field :: Bool,isSemiColon_Syn_Field :: Bool,pos_Syn_Field :: Region,pretty_Syn_Field :: Doc}+wrap_Field :: T_Field ->+              Inh_Field ->+              Syn_Field+wrap_Field sem (Inh_Field _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_Field _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpos _lhsOpretty))+sem_Field_ExprField :: T_MExpr ->+                       T_MExpr ->+                       T_FieldSep ->+                       T_Field+sem_Field_ExprField key_ value_ sep_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _keyOparentOperatorPrecedence :: OperatorLevel+              _keyOparentOperatorAssociative :: Bool+              _valueOparentOperatorPrecedence :: OperatorLevel+              _valueOparentOperatorAssociative :: Bool+              _lhsOisSemiColon :: Bool+              _lhsOcopy :: Field+              _lhsOcomments :: ([MToken])+              _lhsOpos :: Region+              _keyOcomments :: ([MToken])+              _keyOforceMultiline :: Bool+              _keyOindent :: Int+              _keyOppconf :: PrettyPrintConfig+              _valueOcomments :: ([MToken])+              _valueOforceMultiline :: Bool+              _valueOindent :: Int+              _valueOppconf :: PrettyPrintConfig+              _sepOindent :: Int+              _sepOppconf :: PrettyPrintConfig+              _keyIcomments :: ([MToken])+              _keyIcopy :: MExpr+              _keyIendsWithPrefixExpression :: Bool+              _keyIisAssociative :: Bool+              _keyIisLiteral :: Bool+              _keyIisMultiline :: Bool+              _keyIpos :: Region+              _keyIprecedence :: OperatorLevel+              _keyIpretty :: Doc+              _valueIcomments :: ([MToken])+              _valueIcopy :: MExpr+              _valueIendsWithPrefixExpression :: Bool+              _valueIisAssociative :: Bool+              _valueIisLiteral :: Bool+              _valueIisMultiline :: Bool+              _valueIpos :: Region+              _valueIprecedence :: OperatorLevel+              _valueIpretty :: Doc+              _sepIcopy :: FieldSep+              _sepIisMultiline :: Bool+              _sepIisSemiColon :: Bool+              _sepIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 1087 "src/GLua/AG/PrettyPrint.ag" #-}+                   brackets _lhsIppconf _keyIpretty <-> zchr '=' <-> _valueIpretty <> _sepIpretty+                   {-# LINE 3883 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1088 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 3888 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _keyOparentOperatorPrecedence =+                  ({-# LINE 1089 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 3893 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _keyOparentOperatorAssociative =+                  ({-# LINE 1090 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 3898 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOparentOperatorPrecedence =+                  ({-# LINE 1091 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 3903 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOparentOperatorAssociative =+                  ({-# LINE 1092 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 3908 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisSemiColon =+                  ({-# LINE 321 "src/GLua/AG/PrettyPrint.ag" #-}+                   _sepIisSemiColon+                   {-# LINE 3913 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ExprField _keyIcopy _valueIcopy _sepIcopy+                   {-# LINE 3918 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 3923 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valueIcomments+                   {-# LINE 3928 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 310 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valueIpos+                   {-# LINE 3933 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _keyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 3938 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _keyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3943 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _keyOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3948 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _keyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3953 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _keyIcomments+                   {-# LINE 3958 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 3963 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3968 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3973 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _sepOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 3978 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _sepOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 3983 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _keyIcomments,_keyIcopy,_keyIendsWithPrefixExpression,_keyIisAssociative,_keyIisLiteral,_keyIisMultiline,_keyIpos,_keyIprecedence,_keyIpretty) =+                  key_ _keyOcomments _keyOforceMultiline _keyOindent _keyOparentOperatorAssociative _keyOparentOperatorPrecedence _keyOppconf+              ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =+                  value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf+              ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =+                  sep_ _sepOindent _sepOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))+sem_Field_NamedField :: MToken ->+                        T_MExpr ->+                        T_FieldSep ->+                        T_Field+sem_Field_NamedField key_ value_ sep_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _valueOparentOperatorPrecedence :: OperatorLevel+              _valueOparentOperatorAssociative :: Bool+              _lhsOisSemiColon :: Bool+              _lhsOcopy :: Field+              _lhsOcomments :: ([MToken])+              _lhsOpos :: Region+              _valueOcomments :: ([MToken])+              _valueOforceMultiline :: Bool+              _valueOindent :: Int+              _valueOppconf :: PrettyPrintConfig+              _sepOindent :: Int+              _sepOppconf :: PrettyPrintConfig+              _valueIcomments :: ([MToken])+              _valueIcopy :: MExpr+              _valueIendsWithPrefixExpression :: Bool+              _valueIisAssociative :: Bool+              _valueIisLiteral :: Bool+              _valueIisMultiline :: Bool+              _valueIpos :: Region+              _valueIprecedence :: OperatorLevel+              _valueIpretty :: Doc+              _sepIcopy :: FieldSep+              _sepIisMultiline :: Bool+              _sepIisSemiColon :: Bool+              _sepIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 1094 "src/GLua/AG/PrettyPrint.ag" #-}+                   tok key_ <-> zchr '=' <-> _valueIpretty <> _sepIpretty+                   {-# LINE 4031 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1095 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 4036 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOparentOperatorPrecedence =+                  ({-# LINE 1096 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 4041 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOparentOperatorAssociative =+                  ({-# LINE 1097 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 4046 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisSemiColon =+                  ({-# LINE 321 "src/GLua/AG/PrettyPrint.ag" #-}+                   _sepIisSemiColon+                   {-# LINE 4051 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   NamedField key_ _valueIcopy _sepIcopy+                   {-# LINE 4056 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4061 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valueIcomments+                   {-# LINE 4066 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 310 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valueIpos+                   {-# LINE 4071 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 4076 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 4081 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 4086 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4091 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _sepOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 4096 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _sepOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4101 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =+                  value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf+              ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =+                  sep_ _sepOindent _sepOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))+sem_Field_UnnamedField :: T_MExpr ->+                          T_FieldSep ->+                          T_Field+sem_Field_UnnamedField value_ sep_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _valueOparentOperatorPrecedence :: OperatorLevel+              _valueOparentOperatorAssociative :: Bool+              _lhsOisSemiColon :: Bool+              _lhsOcopy :: Field+              _lhsOcomments :: ([MToken])+              _lhsOpos :: Region+              _valueOcomments :: ([MToken])+              _valueOforceMultiline :: Bool+              _valueOindent :: Int+              _valueOppconf :: PrettyPrintConfig+              _sepOindent :: Int+              _sepOppconf :: PrettyPrintConfig+              _valueIcomments :: ([MToken])+              _valueIcopy :: MExpr+              _valueIendsWithPrefixExpression :: Bool+              _valueIisAssociative :: Bool+              _valueIisLiteral :: Bool+              _valueIisMultiline :: Bool+              _valueIpos :: Region+              _valueIprecedence :: OperatorLevel+              _valueIpretty :: Doc+              _sepIcopy :: FieldSep+              _sepIisMultiline :: Bool+              _sepIisSemiColon :: Bool+              _sepIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 1099 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valueIpretty <> _sepIpretty+                   {-# LINE 4146 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1100 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valueIisMultiline || _sepIisMultiline+                   {-# LINE 4151 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOparentOperatorPrecedence =+                  ({-# LINE 1101 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 4156 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOparentOperatorAssociative =+                  ({-# LINE 1102 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 4161 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisSemiColon =+                  ({-# LINE 321 "src/GLua/AG/PrettyPrint.ag" #-}+                   _sepIisSemiColon+                   {-# LINE 4166 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   UnnamedField _valueIcopy _sepIcopy+                   {-# LINE 4171 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4176 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valueIcomments+                   {-# LINE 4181 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 310 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valueIpos+                   {-# LINE 4186 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 4191 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 4196 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 4201 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valueOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4206 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _sepOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 4211 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _sepOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4216 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _valueIcomments,_valueIcopy,_valueIendsWithPrefixExpression,_valueIisAssociative,_valueIisLiteral,_valueIisMultiline,_valueIpos,_valueIprecedence,_valueIpretty) =+                  value_ _valueOcomments _valueOforceMultiline _valueOindent _valueOparentOperatorAssociative _valueOparentOperatorPrecedence _valueOppconf+              ( _sepIcopy,_sepIisMultiline,_sepIisSemiColon,_sepIpretty) =+                  sep_ _sepOindent _sepOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpos,_lhsOpretty)))+-- FieldList ---------------------------------------------------+-- cata+sem_FieldList :: FieldList ->+                 T_FieldList+sem_FieldList list =+    (Prelude.foldr sem_FieldList_Cons sem_FieldList_Nil (Prelude.map sem_Field list))+-- semantic domain+type T_FieldList = ([MToken]) ->+                   Bool ->+                   Int ->+                   PrettyPrintConfig ->+                   Bool ->+                   ( ([MToken]),FieldList,Bool,Bool,Doc)+data Inh_FieldList = Inh_FieldList {comments_Inh_FieldList :: ([MToken]),forceMultiline_Inh_FieldList :: Bool,indent_Inh_FieldList :: Int,ppconf_Inh_FieldList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_FieldList :: Bool}+data Syn_FieldList = Syn_FieldList {comments_Syn_FieldList :: ([MToken]),copy_Syn_FieldList :: FieldList,isMultiline_Syn_FieldList :: Bool,isNil_Syn_FieldList :: Bool,pretty_Syn_FieldList :: Doc}+wrap_FieldList :: T_FieldList ->+                  Inh_FieldList ->+                  Syn_FieldList+wrap_FieldList sem (Inh_FieldList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline+     in  (Syn_FieldList _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOisNil _lhsOpretty))+sem_FieldList_Cons :: T_Field ->+                      T_FieldList ->+                      T_FieldList+sem_FieldList_Cons hd_ tl_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIsomeElementsInListAreMultiline ->+         (let _lhsOpretty :: Doc+              _lhsOisNil :: Bool+              _tlOsomeElementsInListAreMultiline :: Bool+              _hdOcomments :: ([MToken])+              _tlOcomments :: ([MToken])+              _lhsOcomments :: ([MToken])+              _lhsOcopy :: FieldList+              _lhsOisMultiline :: Bool+              _hdOforceMultiline :: Bool+              _hdOindent :: Int+              _hdOppconf :: PrettyPrintConfig+              _tlOforceMultiline :: Bool+              _tlOindent :: Int+              _tlOppconf :: PrettyPrintConfig+              _hdIcomments :: ([MToken])+              _hdIcopy :: Field+              _hdIisMultiline :: Bool+              _hdIisSemiColon :: Bool+              _hdIpos :: Region+              _hdIpretty :: Doc+              _tlIcomments :: ([MToken])+              _tlIcopy :: FieldList+              _tlIisMultiline :: Bool+              _tlIisNil :: Bool+              _tlIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 468 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _isMultiline+                   then renderMLComments _lhsIppconf _lhsIindent (fst _commentsBefore    )+                       $+$ indent _lhsIppconf _lhsIindent _hdIpretty+                       <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter    )+                       $+$ _tlIpretty+                   else _hdIpretty+                       `_optionalSpaceAfterSep    ` _tlIpretty+                   {-# LINE 4287 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisNil =+                  ({-# LINE 476 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 4292 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _optionalSpaceAfterSep =+                  ({-# LINE 478 "src/GLua/AG/PrettyPrint.ag" #-}+                   if spaceAfterComma _lhsIppconf then (<->) else (<>)+                   {-# LINE 4297 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _isMultiline =+                  ({-# LINE 480 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   || _hdIisMultiline+                   || _tlIisMultiline+                   || _lhsIsomeElementsInListAreMultiline+                   || not (null $ fst _commentsBefore    )+                   || not (null $ fst _commentsAfter    )+                   {-# LINE 4307 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOsomeElementsInListAreMultiline =+                  ({-# LINE 488 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIsomeElementsInListAreMultiline+                   || _hdIisMultiline+                   || not (null $ fst _commentsBefore    )+                   || not (null $ fst _commentsAfter    )+                   {-# LINE 4315 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsBefore =+                  ({-# LINE 494 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `before` _hdIpos) _lhsIcomments+                   {-# LINE 4320 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOcomments =+                  ({-# LINE 495 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsBefore+                   {-# LINE 4325 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfter =+                  ({-# LINE 496 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeOrOnLine` _hdIpos) _hdIcomments+                   {-# LINE 4330 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOcomments =+                  ({-# LINE 498 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfter+                   {-# LINE 4335 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 499 "src/GLua/AG/PrettyPrint.ag" #-}+                   _tlIcomments+                   {-# LINE 4340 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   (:) _hdIcopy _tlIcopy+                   {-# LINE 4345 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4350 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}+                   _isMultiline+                   {-# LINE 4355 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 4360 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 4365 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4370 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 4375 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 4380 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4385 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _hdIcomments,_hdIcopy,_hdIisMultiline,_hdIisSemiColon,_hdIpos,_hdIpretty) =+                  hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf+              ( _tlIcomments,_tlIcopy,_tlIisMultiline,_tlIisNil,_tlIpretty) =+                  tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty)))+sem_FieldList_Nil :: T_FieldList+sem_FieldList_Nil =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIsomeElementsInListAreMultiline ->+         (let _lhsOpretty :: Doc+              _lhsOisNil :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: FieldList+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 502 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 4407 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisNil =+                  ({-# LINE 503 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 4412 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 504 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 4417 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   []+                   {-# LINE 4422 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4427 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 4432 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOisNil,_lhsOpretty)))+-- FieldSep ----------------------------------------------------+-- cata+sem_FieldSep :: FieldSep ->+                T_FieldSep+sem_FieldSep (CommaSep) =+    (sem_FieldSep_CommaSep)+sem_FieldSep (SemicolonSep) =+    (sem_FieldSep_SemicolonSep)+sem_FieldSep (NoSep) =+    (sem_FieldSep_NoSep)+-- semantic domain+type T_FieldSep = Int ->+                  PrettyPrintConfig ->+                  ( FieldSep,Bool,Bool,Doc)+data Inh_FieldSep = Inh_FieldSep {indent_Inh_FieldSep :: Int,ppconf_Inh_FieldSep :: PrettyPrintConfig}+data Syn_FieldSep = Syn_FieldSep {copy_Syn_FieldSep :: FieldSep,isMultiline_Syn_FieldSep :: Bool,isSemiColon_Syn_FieldSep :: Bool,pretty_Syn_FieldSep :: Doc}+wrap_FieldSep :: T_FieldSep ->+                 Inh_FieldSep ->+                 Syn_FieldSep+wrap_FieldSep sem (Inh_FieldSep _lhsIindent _lhsIppconf) =+    (let ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty) = sem _lhsIindent _lhsIppconf+     in  (Syn_FieldSep _lhsOcopy _lhsOisMultiline _lhsOisSemiColon _lhsOpretty))+sem_FieldSep_CommaSep :: T_FieldSep+sem_FieldSep_CommaSep =+    (\ _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOisSemiColon :: Bool+              _lhsOcopy :: FieldSep+              _lhsOpretty =+                  ({-# LINE 1106 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ','+                   {-# LINE 4468 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1107 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 4473 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisSemiColon =+                  ({-# LINE 321 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 4478 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   CommaSep+                   {-# LINE 4483 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4488 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))+sem_FieldSep_SemicolonSep :: T_FieldSep+sem_FieldSep_SemicolonSep =+    (\ _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisSemiColon :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: FieldSep+              _lhsOpretty =+                  ({-# LINE 1109 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty) <> zchr ';'+                   {-# LINE 4502 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisSemiColon =+                  ({-# LINE 1110 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 4507 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1113 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 4512 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   SemicolonSep+                   {-# LINE 4517 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4522 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))+sem_FieldSep_NoSep :: T_FieldSep+sem_FieldSep_NoSep =+    (\ _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOisSemiColon :: Bool+              _lhsOcopy :: FieldSep+              _lhsOpretty =+                  ({-# LINE 1115 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 4536 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1116 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 4541 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisSemiColon =+                  ({-# LINE 321 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 4546 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   NoSep+                   {-# LINE 4551 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4556 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcopy,_lhsOisMultiline,_lhsOisSemiColon,_lhsOpretty)))+-- FuncName ----------------------------------------------------+-- cata+sem_FuncName :: FuncName ->+                T_FuncName+sem_FuncName (FuncName _names _meta) =+    (sem_FuncName_FuncName _names _meta)+-- semantic domain+type T_FuncName = ([MToken]) ->+                  Int ->+                  PrettyPrintConfig ->+                  ( ([MToken]),FuncName,Bool,Region,Doc)+data Inh_FuncName = Inh_FuncName {comments_Inh_FuncName :: ([MToken]),indent_Inh_FuncName :: Int,ppconf_Inh_FuncName :: PrettyPrintConfig}+data Syn_FuncName = Syn_FuncName {comments_Syn_FuncName :: ([MToken]),copy_Syn_FuncName :: FuncName,isMultiline_Syn_FuncName :: Bool,pos_Syn_FuncName :: Region,pretty_Syn_FuncName :: Doc}+wrap_FuncName :: T_FuncName ->+                 Inh_FuncName ->+                 Syn_FuncName+wrap_FuncName sem (Inh_FuncName _lhsIcomments _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf+     in  (Syn_FuncName _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_FuncName_FuncName :: ([MToken]) ->+                         (Maybe MToken) ->+                         T_FuncName+sem_FuncName_FuncName names_ meta_ =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOpos :: Region+              _lhsOcopy :: FuncName+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 893 "src/GLua/AG/PrettyPrint.ag" #-}+                   printList tok "." names_ <> metaDoc meta_+                   {-# LINE 4593 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 894 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 4598 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 895 "src/GLua/AG/PrettyPrint.ag" #-}+                   case meta_ of+                       Nothing -> _namesPos+                       Just name -> rgOr _namesPos     (mpos name)+                   {-# LINE 4605 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _namesPos =+                  ({-# LINE 899 "src/GLua/AG/PrettyPrint.ag" #-}+                   foldl1 rgOr $ map mpos names_+                   {-# LINE 4610 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   FuncName names_ meta_+                   {-# LINE 4615 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4620 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 4625 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- MElse -------------------------------------------------------+-- cata+sem_MElse :: MElse ->+             T_MElse+sem_MElse (MElse _pos _body) =+    (sem_MElse_MElse _pos (sem_Block _body))+-- semantic domain+type T_MElse = ([MToken]) ->+               Bool ->+               Int ->+               PrettyPrintConfig ->+               Region ->+               ( ([MToken]),MElse,Bool,Bool,Region,Doc)+data Inh_MElse = Inh_MElse {comments_Inh_MElse :: ([MToken]),forceMultiline_Inh_MElse :: Bool,indent_Inh_MElse :: Int,ppconf_Inh_MElse :: PrettyPrintConfig,statRegion_Inh_MElse :: Region}+data Syn_MElse = Syn_MElse {comments_Syn_MElse :: ([MToken]),copy_Syn_MElse :: MElse,elsesExist_Syn_MElse :: Bool,isMultiline_Syn_MElse :: Bool,pos_Syn_MElse :: Region,pretty_Syn_MElse :: Doc}+wrap_MElse :: T_MElse ->+              Inh_MElse ->+              Syn_MElse+wrap_MElse sem (Inh_MElse _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion+     in  (Syn_MElse _lhsOcomments _lhsOcopy _lhsOelsesExist _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_MElse_MElse :: Region ->+                   T_Block ->+                   T_MElse+sem_MElse_MElse pos_ body_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _bodyOindent :: Int+              _lhsOpos :: Region+              _bodyOcomments :: ([MToken])+              _lhsOelsesExist :: Bool+              _lhsOcopy :: MElse+              _lhsOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _lhsOpretty =+                  ({-# LINE 601 "src/GLua/AG/PrettyPrint.ag" #-}+                   indent _lhsIppconf _lhsIindent (zeroWidthText "else")+                   <-> _prettyCommentsAfter+                   $+$ _bodyIpretty+                   {-# LINE 4679 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 605 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIisMultiline+                   {-# LINE 4684 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 606 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 4689 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettyCommentsAfter =+                  ({-# LINE 607 "src/GLua/AG/PrettyPrint.ag" #-}+                   renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter    )+                   {-# LINE 4694 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfter =+                  ({-# LINE 608 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeOrOnLine` pos_) _lhsIcomments+                   {-# LINE 4699 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 609 "src/GLua/AG/PrettyPrint.ag" #-}+                   pos_+                   {-# LINE 4704 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 610 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfter+                   {-# LINE 4709 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOelsesExist =+                  ({-# LINE 327 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 4714 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   MElse pos_ _bodyIcopy+                   {-# LINE 4719 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4724 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 4729 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 4734 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4739 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 4744 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOelsesExist,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- MElseIf -----------------------------------------------------+-- cata+sem_MElseIf :: MElseIf ->+               T_MElseIf+sem_MElseIf (MElseIf _pos _elif) =+    (sem_MElseIf_MElseIf _pos (sem_ElseIf _elif))+-- semantic domain+type T_MElseIf = ([MToken]) ->+                 Bool ->+                 Int ->+                 PrettyPrintConfig ->+                 ( ([MToken]),MElseIf,Bool,Region,Doc)+data Inh_MElseIf = Inh_MElseIf {comments_Inh_MElseIf :: ([MToken]),forceMultiline_Inh_MElseIf :: Bool,indent_Inh_MElseIf :: Int,ppconf_Inh_MElseIf :: PrettyPrintConfig}+data Syn_MElseIf = Syn_MElseIf {comments_Syn_MElseIf :: ([MToken]),copy_Syn_MElseIf :: MElseIf,isMultiline_Syn_MElseIf :: Bool,pos_Syn_MElseIf :: Region,pretty_Syn_MElseIf :: Doc}+wrap_MElseIf :: T_MElseIf ->+                Inh_MElseIf ->+                Syn_MElseIf+wrap_MElseIf sem (Inh_MElseIf _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_MElseIf _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpos _lhsOpretty))+sem_MElseIf_MElseIf :: Region ->+                       T_ElseIf ->+                       T_MElseIf+sem_MElseIf_MElseIf pos_ elif_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpos :: Region+              _lhsOisMultiline :: Bool+              _lhsOcopy :: MElseIf+              _lhsOcomments :: ([MToken])+              _lhsOpretty :: Doc+              _elifOcomments :: ([MToken])+              _elifOforceMultiline :: Bool+              _elifOindent :: Int+              _elifOppconf :: PrettyPrintConfig+              _elifIcomments :: ([MToken])+              _elifIcopy :: ElseIf+              _elifIisMultiline :: Bool+              _elifIpretty :: Doc+              _lhsOpos =+                  ({-# LINE 576 "src/GLua/AG/PrettyPrint.ag" #-}+                   pos_+                   {-# LINE 4793 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 577 "src/GLua/AG/PrettyPrint.ag" #-}+                   _elifIisMultiline+                   {-# LINE 4798 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   MElseIf pos_ _elifIcopy+                   {-# LINE 4803 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4808 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _elifIcomments+                   {-# LINE 4813 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}+                   _elifIpretty+                   {-# LINE 4818 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elifOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 4823 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elifOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 4828 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elifOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 4833 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elifOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4838 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _elifIcomments,_elifIcopy,_elifIisMultiline,_elifIpretty) =+                  elif_ _elifOcomments _elifOforceMultiline _elifOindent _elifOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpos,_lhsOpretty)))+-- MExpr -------------------------------------------------------+-- cata+sem_MExpr :: MExpr ->+             T_MExpr+sem_MExpr (MExpr _pos _expr) =+    (sem_MExpr_MExpr _pos (sem_Expr _expr))+-- semantic domain+type T_MExpr = ([MToken]) ->+               Bool ->+               Int ->+               Bool ->+               OperatorLevel ->+               PrettyPrintConfig ->+               ( ([MToken]),MExpr,Bool,Bool,Bool,Bool,Region,OperatorLevel,Doc)+data Inh_MExpr = Inh_MExpr {comments_Inh_MExpr :: ([MToken]),forceMultiline_Inh_MExpr :: Bool,indent_Inh_MExpr :: Int,parentOperatorAssociative_Inh_MExpr :: Bool,parentOperatorPrecedence_Inh_MExpr :: OperatorLevel,ppconf_Inh_MExpr :: PrettyPrintConfig}+data Syn_MExpr = Syn_MExpr {comments_Syn_MExpr :: ([MToken]),copy_Syn_MExpr :: MExpr,endsWithPrefixExpression_Syn_MExpr :: Bool,isAssociative_Syn_MExpr :: Bool,isLiteral_Syn_MExpr :: Bool,isMultiline_Syn_MExpr :: Bool,pos_Syn_MExpr :: Region,precedence_Syn_MExpr :: OperatorLevel,pretty_Syn_MExpr :: Doc}+wrap_MExpr :: T_MExpr ->+              Inh_MExpr ->+              Syn_MExpr+wrap_MExpr sem (Inh_MExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf+     in  (Syn_MExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty))+sem_MExpr_MExpr :: Region ->+                   T_Expr ->+                   T_MExpr+sem_MExpr_MExpr pos_ expr_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf ->+         (let _lhsOpos :: Region+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _exprOstatRegion :: Region+              _lhsOisAssociative :: Bool+              _lhsOisLiteral :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: MExpr+              _lhsOcomments :: ([MToken])+              _lhsOpretty :: Doc+              _exprOcomments :: ([MToken])+              _exprOforceMultiline :: Bool+              _exprOindent :: Int+              _exprOparentOperatorAssociative :: Bool+              _exprOparentOperatorPrecedence :: OperatorLevel+              _exprOppconf :: PrettyPrintConfig+              _exprIcomments :: ([MToken])+              _exprIcopy :: Expr+              _exprIendsWithPrefixExpression :: Bool+              _exprIisAssociative :: Bool+              _exprIisLiteral :: Bool+              _exprIisMultiline :: Bool+              _exprIprecedence :: OperatorLevel+              _exprIpretty :: Doc+              _lhsOpos =+                  ({-# LINE 972 "src/GLua/AG/PrettyPrint.ag" #-}+                   pos_+                   {-# LINE 4902 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 973 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIendsWithPrefixExpression+                   {-# LINE 4907 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 974 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIisMultiline+                   {-# LINE 4912 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOstatRegion =+                  ({-# LINE 975 "src/GLua/AG/PrettyPrint.ag" #-}+                   pos_+                   {-# LINE 4917 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIisAssociative+                   {-# LINE 4922 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 278 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIisLiteral+                   {-# LINE 4927 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIprecedence+                   {-# LINE 4932 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   MExpr pos_ _exprIcopy+                   {-# LINE 4937 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 4942 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIcomments+                   {-# LINE 4947 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIpretty+                   {-# LINE 4952 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 4957 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 4962 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 4967 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOparentOperatorAssociative =+                  ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIparentOperatorAssociative+                   {-# LINE 4972 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOparentOperatorPrecedence =+                  ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIparentOperatorPrecedence+                   {-# LINE 4977 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 4982 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIprecedence,_exprIpretty) =+                  expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf _exprOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty)))+-- MExprList ---------------------------------------------------+-- cata+sem_MExprList :: MExprList ->+                 T_MExprList+sem_MExprList list =+    (Prelude.foldr sem_MExprList_Cons sem_MExprList_Nil (Prelude.map sem_MExpr list))+-- semantic domain+type T_MExprList = ([MToken]) ->+                   Bool ->+                   Int ->+                   PrettyPrintConfig ->+                   Bool ->+                   ( ([MToken]),MExprList,Bool,Bool,Bool,Region,OperatorLevel,Doc)+data Inh_MExprList = Inh_MExprList {comments_Inh_MExprList :: ([MToken]),forceMultiline_Inh_MExprList :: Bool,indent_Inh_MExprList :: Int,ppconf_Inh_MExprList :: PrettyPrintConfig,someElementsInListAreMultiline_Inh_MExprList :: Bool}+data Syn_MExprList = Syn_MExprList {comments_Syn_MExprList :: ([MToken]),copy_Syn_MExprList :: MExprList,isAssociative_Syn_MExprList :: Bool,isLast_Syn_MExprList :: Bool,isMultiline_Syn_MExprList :: Bool,pos_Syn_MExprList :: Region,precedence_Syn_MExprList :: OperatorLevel,pretty_Syn_MExprList :: Doc}+wrap_MExprList :: T_MExprList ->+                  Inh_MExprList ->+                  Syn_MExprList+wrap_MExprList sem (Inh_MExprList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIsomeElementsInListAreMultiline+     in  (Syn_MExprList _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLast _lhsOisMultiline _lhsOpos _lhsOprecedence _lhsOpretty))+sem_MExprList_Cons :: T_MExpr ->+                      T_MExprList ->+                      T_MExprList+sem_MExprList_Cons hd_ tl_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIsomeElementsInListAreMultiline ->+         (let _lhsOpretty :: Doc+              _hdOcomments :: ([MToken])+              _tlOcomments :: ([MToken])+              _lhsOcomments :: ([MToken])+              _lhsOpos :: Region+              _lhsOisLast :: Bool+              _hdOparentOperatorPrecedence :: OperatorLevel+              _hdOparentOperatorAssociative :: Bool+              _tlOsomeElementsInListAreMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: MExprList+              _lhsOisMultiline :: Bool+              _hdOforceMultiline :: Bool+              _hdOindent :: Int+              _hdOppconf :: PrettyPrintConfig+              _tlOforceMultiline :: Bool+              _tlOindent :: Int+              _tlOppconf :: PrettyPrintConfig+              _hdIcomments :: ([MToken])+              _hdIcopy :: MExpr+              _hdIendsWithPrefixExpression :: Bool+              _hdIisAssociative :: Bool+              _hdIisLiteral :: Bool+              _hdIisMultiline :: Bool+              _hdIpos :: Region+              _hdIprecedence :: OperatorLevel+              _hdIpretty :: Doc+              _tlIcomments :: ([MToken])+              _tlIcopy :: MExprList+              _tlIisAssociative :: Bool+              _tlIisLast :: Bool+              _tlIisMultiline :: Bool+              _tlIpos :: Region+              _tlIprecedence :: OperatorLevel+              _tlIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 417 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _isMultiline     then _prettyMultiLine     else _prettySingleLine+                   {-# LINE 5056 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettySingleLine =+                  ({-# LINE 418 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIpretty+                   <> _comma+                   <> _tlIpretty+                   {-# LINE 5063 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _prettyMultiLine =+                  ({-# LINE 422 "src/GLua/AG/PrettyPrint.ag" #-}+                   renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine    )+                   $+$ indent _lhsIppconf _lhsIindent _hdIpretty+                   <> _comma+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter    )+                   $+$ _tlIpretty+                   {-# LINE 5072 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _comma =+                  ({-# LINE 428 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _tlIisLast then+                       empty+                   else+                       (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+                       <> zchr ','+                       <> (if not _isMultiline     && spaceAfterComma _lhsIppconf then zchr ' ' else empty)+                   {-# LINE 5082 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsBeforeLine =+                  ({-# LINE 436 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments+                   {-# LINE 5087 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOcomments =+                  ({-# LINE 437 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsBeforeLine+                   {-# LINE 5092 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfter =+                  ({-# LINE 438 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos' _) -> pos' `before` _tlIpos) _hdIcomments+                   {-# LINE 5097 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOcomments =+                  ({-# LINE 439 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfter+                   {-# LINE 5102 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 440 "src/GLua/AG/PrettyPrint.ag" #-}+                   _tlIcomments+                   {-# LINE 5107 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 442 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIpos+                   {-# LINE 5112 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLast =+                  ({-# LINE 443 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5117 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOparentOperatorPrecedence =+                  ({-# LINE 444 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 5122 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOparentOperatorAssociative =+                  ({-# LINE 445 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 5127 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _isMultiline =+                  ({-# LINE 446 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   || not (null $ fst _commentsBeforeLine    )+                   || not (null $ fst _commentsAfter    )+                   || _lhsIsomeElementsInListAreMultiline+                   || _hdIisMultiline+                   || _tlIisMultiline+                   {-# LINE 5137 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOsomeElementsInListAreMultiline =+                  ({-# LINE 454 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIsomeElementsInListAreMultiline+                   || _hdIisMultiline+                   || not (null $ fst _commentsBeforeLine    )+                   || not (null $ fst _commentsAfter    )+                   {-# LINE 5145 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIisAssociative && _tlIisAssociative+                   {-# LINE 5150 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   (min _hdIprecedence _tlIprecedence)+                   {-# LINE 5155 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   (:) _hdIcopy _tlIcopy+                   {-# LINE 5160 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5165 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}+                   _isMultiline+                   {-# LINE 5170 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 5175 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 5180 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 5185 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 5190 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 5195 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 5200 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisAssociative,_hdIisLiteral,_hdIisMultiline,_hdIpos,_hdIprecedence,_hdIpretty) =+                  hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOparentOperatorAssociative _hdOparentOperatorPrecedence _hdOppconf+              ( _tlIcomments,_tlIcopy,_tlIisAssociative,_tlIisLast,_tlIisMultiline,_tlIpos,_tlIprecedence,_tlIpretty) =+                  tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOsomeElementsInListAreMultiline+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty)))+sem_MExprList_Nil :: T_MExprList+sem_MExprList_Nil =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIsomeElementsInListAreMultiline ->+         (let _lhsOpretty :: Doc+              _lhsOpos :: Region+              _lhsOisMultiline :: Bool+              _lhsOisLast :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: MExprList+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 461 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 5225 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpos =+                  ({-# LINE 462 "src/GLua/AG/PrettyPrint.ag" #-}+                   emptyRg+                   {-# LINE 5230 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 463 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5235 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLast =+                  ({-# LINE 464 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 5240 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5245 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 5250 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   []+                   {-# LINE 5255 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5260 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 5265 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLast,_lhsOisMultiline,_lhsOpos,_lhsOprecedence,_lhsOpretty)))+-- MStat -------------------------------------------------------+-- cata+sem_MStat :: MStat ->+             T_MStat+sem_MStat (MStat _pos _stat) =+    (sem_MStat_MStat _pos (sem_Stat _stat))+-- semantic domain+type T_MStat = ([MToken]) ->+               Bool ->+               Int ->+               Bool ->+               PrettyPrintConfig ->+               Bool ->+               ( ([MToken]),MStat,Bool,Bool,Region,Doc,Bool,Int)+data Inh_MStat = Inh_MStat {comments_Inh_MStat :: ([MToken]),forceMultiline_Inh_MStat :: Bool,indent_Inh_MStat :: Int,isLastStatement_Inh_MStat :: Bool,ppconf_Inh_MStat :: PrettyPrintConfig,wouldBeAmbiguousWithoutSemicolon_Inh_MStat :: Bool}+data Syn_MStat = Syn_MStat {comments_Syn_MStat :: ([MToken]),copy_Syn_MStat :: MStat,endsWithPrefixExpression_Syn_MStat :: Bool,isMultiline_Syn_MStat :: Bool,pos_Syn_MStat :: Region,pretty_Syn_MStat :: Doc,startsWithExprPrefixExpression_Syn_MStat :: Bool,statementCount_Syn_MStat :: Int}+wrap_MStat :: T_MStat ->+              Inh_MStat ->+              Syn_MStat+wrap_MStat sem (Inh_MStat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIwouldBeAmbiguousWithoutSemicolon+     in  (Syn_MStat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpos _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount))+sem_MStat_MStat :: Region ->+                   T_Stat ->+                   T_MStat+sem_MStat_MStat pos_ stat_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpos :: Region+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _statOstatRegion :: Region+              _statOwouldBeAmbiguousWithoutSemicolon :: Bool+              _lhsOstatementCount :: Int+              _lhsOcopy :: MStat+              _lhsOcomments :: ([MToken])+              _lhsOpretty :: Doc+              _statOcomments :: ([MToken])+              _statOforceMultiline :: Bool+              _statOindent :: Int+              _statOisLastStatement :: Bool+              _statOppconf :: PrettyPrintConfig+              _statIcomments :: ([MToken])+              _statIcopy :: Stat+              _statIendsWithPrefixExpression :: Bool+              _statIisMultiline :: Bool+              _statIpretty :: Doc+              _statIstartsWithExprPrefixExpression :: Bool+              _lhsOpos =+                  ({-# LINE 408 "src/GLua/AG/PrettyPrint.ag" #-}+                   pos_+                   {-# LINE 5324 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 409 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statIstartsWithExprPrefixExpression+                   {-# LINE 5329 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 410 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statIendsWithPrefixExpression+                   {-# LINE 5334 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 411 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statIisMultiline+                   {-# LINE 5339 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statOstatRegion =+                  ({-# LINE 412 "src/GLua/AG/PrettyPrint.ag" #-}+                   pos_+                   {-# LINE 5344 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statOwouldBeAmbiguousWithoutSemicolon =+                  ({-# LINE 413 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIwouldBeAmbiguousWithoutSemicolon+                   {-# LINE 5349 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstatementCount =+                  ({-# LINE 324 "src/GLua/AG/PrettyPrint.ag" #-}+                   1+                   {-# LINE 5354 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   MStat pos_ _statIcopy+                   {-# LINE 5359 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5364 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statIcomments+                   {-# LINE 5369 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 264 "src/GLua/AG/PrettyPrint.ag" #-}+                   _statIpretty+                   {-# LINE 5374 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 5379 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 5384 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 5389 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statOisLastStatement =+                  ({-# LINE 307 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIisLastStatement+                   {-# LINE 5394 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _statOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 5399 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _statIcomments,_statIcopy,_statIendsWithPrefixExpression,_statIisMultiline,_statIpretty,_statIstartsWithExprPrefixExpression) =+                  stat_ _statOcomments _statOforceMultiline _statOindent _statOisLastStatement _statOppconf _statOstatRegion _statOwouldBeAmbiguousWithoutSemicolon+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpos,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))+-- MStatList ---------------------------------------------------+-- cata+sem_MStatList :: MStatList ->+                 T_MStatList+sem_MStatList list =+    (Prelude.foldr sem_MStatList_Cons sem_MStatList_Nil (Prelude.map sem_MStat list))+-- semantic domain+type T_MStatList = ([MToken]) ->+                   Bool ->+                   Int ->+                   PrettyPrintConfig ->+                   Region ->+                   ( ([MToken]),MStatList,Bool,Bool,Doc,Bool,Int)+data Inh_MStatList = Inh_MStatList {comments_Inh_MStatList :: ([MToken]),forceMultiline_Inh_MStatList :: Bool,indent_Inh_MStatList :: Int,ppconf_Inh_MStatList :: PrettyPrintConfig,statRegion_Inh_MStatList :: Region}+data Syn_MStatList = Syn_MStatList {comments_Syn_MStatList :: ([MToken]),copy_Syn_MStatList :: MStatList,isLast_Syn_MStatList :: Bool,isMultiline_Syn_MStatList :: Bool,pretty_Syn_MStatList :: Doc,startsWithExprPrefixExpression_Syn_MStatList :: Bool,statementCount_Syn_MStatList :: Int}+wrap_MStatList :: T_MStatList ->+                  Inh_MStatList ->+                  Syn_MStatList+wrap_MStatList sem (Inh_MStatList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf _lhsIstatRegion+     in  (Syn_MStatList _lhsOcomments _lhsOcopy _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOstatementCount))+sem_MStatList_Cons :: T_MStat ->+                      T_MStatList ->+                      T_MStatList+sem_MStatList_Cons hd_ tl_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOisLast :: Bool+              _hdOcomments :: ([MToken])+              _tlOcomments :: ([MToken])+              _lhsOcomments :: ([MToken])+              _hdOisLastStatement :: Bool+              _hdOwouldBeAmbiguousWithoutSemicolon :: Bool+              _hdOforceMultiline :: Bool+              _lhsOstatementCount :: Int+              _lhsOcopy :: MStatList+              _lhsOisMultiline :: Bool+              _hdOindent :: Int+              _hdOppconf :: PrettyPrintConfig+              _tlOforceMultiline :: Bool+              _tlOindent :: Int+              _tlOppconf :: PrettyPrintConfig+              _tlOstatRegion :: Region+              _hdIcomments :: ([MToken])+              _hdIcopy :: MStat+              _hdIendsWithPrefixExpression :: Bool+              _hdIisMultiline :: Bool+              _hdIpos :: Region+              _hdIpretty :: Doc+              _hdIstartsWithExprPrefixExpression :: Bool+              _hdIstatementCount :: Int+              _tlIcomments :: ([MToken])+              _tlIcopy :: MStatList+              _tlIisLast :: Bool+              _tlIisMultiline :: Bool+              _tlIpretty :: Doc+              _tlIstartsWithExprPrefixExpression :: Bool+              _tlIstatementCount :: Int+              _lhsOpretty =+                  ({-# LINE 367 "src/GLua/AG/PrettyPrint.ag" #-}+                   renderMLComments _lhsIppconf _lhsIindent (fst _commentsBeforeLine    )+                   $+$ indent _lhsIppconf _lhsIindent _hdIpretty+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfter    )+                   <> _addNewline+                   $+$ _tlIpretty+                   {-# LINE 5474 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 373 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIstartsWithExprPrefixExpression+                   {-# LINE 5479 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLast =+                  ({-# LINE 374 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5484 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _isMultiline =+                  ({-# LINE 376 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIisMultiline+                   || _tlIisMultiline+                   || not (null $ fst _commentsBeforeLine    )+                   || not (null $ fst _commentsAfter    )+                   {-# LINE 5492 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _addNewline =+                  ({-# LINE 381 "src/GLua/AG/PrettyPrint.ag" #-}+                   if not _tlIisLast && _hdIisMultiline then zchr '\n' else empty+                   {-# LINE 5497 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsBeforeLine =+                  ({-# LINE 384 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos' _) -> pos' `before` _hdIpos) _lhsIcomments+                   {-# LINE 5502 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOcomments =+                  ({-# LINE 385 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsBeforeLine+                   {-# LINE 5507 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfter =+                  ({-# LINE 386 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos' _) -> pos' `beforeOrOnLine` _hdIpos) _hdIcomments+                   {-# LINE 5512 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOcomments =+                  ({-# LINE 387 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfter+                   {-# LINE 5517 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 388 "src/GLua/AG/PrettyPrint.ag" #-}+                   _tlIcomments+                   {-# LINE 5522 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOisLastStatement =+                  ({-# LINE 390 "src/GLua/AG/PrettyPrint.ag" #-}+                   _tlIisLast+                   {-# LINE 5527 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOwouldBeAmbiguousWithoutSemicolon =+                  ({-# LINE 396 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIendsWithPrefixExpression && _tlIstartsWithExprPrefixExpression+                   {-# LINE 5532 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOforceMultiline =+                  ({-# LINE 398 "src/GLua/AG/PrettyPrint.ag" #-}+                   commentsForceMultiline $ fst _commentsBeforeLine+                   {-# LINE 5537 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstatementCount =+                  ({-# LINE 324 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIstatementCount + _tlIstatementCount+                   {-# LINE 5542 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   (:) _hdIcopy _tlIcopy+                   {-# LINE 5547 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5552 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}+                   _isMultiline+                   {-# LINE 5557 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 5562 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 5567 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 5572 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 5577 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 5582 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 5587 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIisMultiline,_hdIpos,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIstatementCount) =+                  hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOisLastStatement _hdOppconf _hdOwouldBeAmbiguousWithoutSemicolon+              ( _tlIcomments,_tlIcopy,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIstatementCount) =+                  tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf _tlOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))+sem_MStatList_Nil :: T_MStatList+sem_MStatList_Nil =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf+       _lhsIstatRegion ->+         (let _lhsOpretty :: Doc+              _lhsOstatementCount :: Int+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisLast :: Bool+              _lhsOcopy :: MStatList+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 400 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 5611 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstatementCount =+                  ({-# LINE 401 "src/GLua/AG/PrettyPrint.ag" #-}+                   0+                   {-# LINE 5616 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 402 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5621 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 403 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5626 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLast =+                  ({-# LINE 404 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 5631 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   []+                   {-# LINE 5636 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5641 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 5646 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOstatementCount)))+-- MaybeMExpr --------------------------------------------------+-- cata+sem_MaybeMExpr :: MaybeMExpr ->+                  T_MaybeMExpr+sem_MaybeMExpr (Prelude.Just x) =+    (sem_MaybeMExpr_Just (sem_MExpr x))+sem_MaybeMExpr Prelude.Nothing =+    sem_MaybeMExpr_Nothing+-- semantic domain+type T_MaybeMExpr = ([MToken]) ->+                    Bool ->+                    Int ->+                    PrettyPrintConfig ->+                    ( ([MToken]),MaybeMExpr,Bool,Bool,Bool,Bool,OperatorLevel,Doc)+data Inh_MaybeMExpr = Inh_MaybeMExpr {comments_Inh_MaybeMExpr :: ([MToken]),forceMultiline_Inh_MaybeMExpr :: Bool,indent_Inh_MaybeMExpr :: Int,ppconf_Inh_MaybeMExpr :: PrettyPrintConfig}+data Syn_MaybeMExpr = Syn_MaybeMExpr {comments_Syn_MaybeMExpr :: ([MToken]),copy_Syn_MaybeMExpr :: MaybeMExpr,endsWithPrefixExpression_Syn_MaybeMExpr :: Bool,isAssociative_Syn_MaybeMExpr :: Bool,isDefined_Syn_MaybeMExpr :: Bool,isMultiline_Syn_MaybeMExpr :: Bool,precedence_Syn_MaybeMExpr :: OperatorLevel,pretty_Syn_MaybeMExpr :: Doc}+wrap_MaybeMExpr :: T_MaybeMExpr ->+                   Inh_MaybeMExpr ->+                   Syn_MaybeMExpr+wrap_MaybeMExpr sem (Inh_MaybeMExpr _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_MaybeMExpr _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisAssociative _lhsOisDefined _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_MaybeMExpr_Just :: T_MExpr ->+                       T_MaybeMExpr+sem_MaybeMExpr_Just just_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisDefined :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _justOparentOperatorPrecedence :: OperatorLevel+              _justOparentOperatorAssociative :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: MaybeMExpr+              _lhsOcomments :: ([MToken])+              _justOcomments :: ([MToken])+              _justOforceMultiline :: Bool+              _justOindent :: Int+              _justOppconf :: PrettyPrintConfig+              _justIcomments :: ([MToken])+              _justIcopy :: MExpr+              _justIendsWithPrefixExpression :: Bool+              _justIisAssociative :: Bool+              _justIisLiteral :: Bool+              _justIisMultiline :: Bool+              _justIpos :: Region+              _justIprecedence :: OperatorLevel+              _justIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 508 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIpretty+                   {-# LINE 5704 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisDefined =+                  ({-# LINE 509 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 5709 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 510 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIendsWithPrefixExpression+                   {-# LINE 5714 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 511 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIisMultiline+                   {-# LINE 5719 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOparentOperatorPrecedence =+                  ({-# LINE 512 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 5724 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOparentOperatorAssociative =+                  ({-# LINE 513 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 5729 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIisAssociative+                   {-# LINE 5734 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIprecedence+                   {-# LINE 5739 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   Just _justIcopy+                   {-# LINE 5744 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5749 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _justIcomments+                   {-# LINE 5754 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 5759 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 5764 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 5769 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _justOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 5774 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _justIcomments,_justIcopy,_justIendsWithPrefixExpression,_justIisAssociative,_justIisLiteral,_justIisMultiline,_justIpos,_justIprecedence,_justIpretty) =+                  just_ _justOcomments _justOforceMultiline _justOindent _justOparentOperatorAssociative _justOparentOperatorPrecedence _justOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_MaybeMExpr_Nothing :: T_MaybeMExpr+sem_MaybeMExpr_Nothing =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisDefined :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: MaybeMExpr+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 515 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 5796 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisDefined =+                  ({-# LINE 516 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5801 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 517 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5806 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 518 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5811 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5816 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 5821 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   Nothing+                   {-# LINE 5826 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5831 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 5836 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisAssociative,_lhsOisDefined,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- PFExprSuffix ------------------------------------------------+-- cata+sem_PFExprSuffix :: PFExprSuffix ->+                    T_PFExprSuffix+sem_PFExprSuffix (Call _args) =+    (sem_PFExprSuffix_Call (sem_Args _args))+sem_PFExprSuffix (MetaCall _fn _args) =+    (sem_PFExprSuffix_MetaCall _fn (sem_Args _args))+sem_PFExprSuffix (ExprIndex _index) =+    (sem_PFExprSuffix_ExprIndex (sem_MExpr _index))+sem_PFExprSuffix (DotIndex _index) =+    (sem_PFExprSuffix_DotIndex _index)+-- semantic domain+type T_PFExprSuffix = ([MToken]) ->+                      Bool ->+                      Int ->+                      PrettyPrintConfig ->+                      ( ([MToken]),PFExprSuffix,Bool,Bool,OperatorLevel,Doc)+data Inh_PFExprSuffix = Inh_PFExprSuffix {comments_Inh_PFExprSuffix :: ([MToken]),forceMultiline_Inh_PFExprSuffix :: Bool,indent_Inh_PFExprSuffix :: Int,ppconf_Inh_PFExprSuffix :: PrettyPrintConfig}+data Syn_PFExprSuffix = Syn_PFExprSuffix {comments_Syn_PFExprSuffix :: ([MToken]),copy_Syn_PFExprSuffix :: PFExprSuffix,isAssociative_Syn_PFExprSuffix :: Bool,isMultiline_Syn_PFExprSuffix :: Bool,precedence_Syn_PFExprSuffix :: OperatorLevel,pretty_Syn_PFExprSuffix :: Doc}+wrap_PFExprSuffix :: T_PFExprSuffix ->+                     Inh_PFExprSuffix ->+                     Syn_PFExprSuffix+wrap_PFExprSuffix sem (Inh_PFExprSuffix _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_PFExprSuffix _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisMultiline _lhsOprecedence _lhsOpretty))+sem_PFExprSuffix_Call :: T_Args ->+                         T_PFExprSuffix+sem_PFExprSuffix_Call args_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: PFExprSuffix+              _lhsOcomments :: ([MToken])+              _argsOcomments :: ([MToken])+              _argsOforceMultiline :: Bool+              _argsOindent :: Int+              _argsOppconf :: PrettyPrintConfig+              _argsIcomments :: ([MToken])+              _argsIcopy :: Args+              _argsIisMultiline :: Bool+              _argsIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 956 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argsIpretty+                   {-# LINE 5889 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 957 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argsIisMultiline+                   {-# LINE 5894 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5899 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 5904 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   Call _argsIcopy+                   {-# LINE 5909 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5914 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argsIcomments+                   {-# LINE 5919 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 5924 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 5929 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 5934 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 5939 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) =+                  args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_PFExprSuffix_MetaCall :: MToken ->+                             T_Args ->+                             T_PFExprSuffix+sem_PFExprSuffix_MetaCall fn_ args_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: PFExprSuffix+              _lhsOcomments :: ([MToken])+              _argsOcomments :: ([MToken])+              _argsOforceMultiline :: Bool+              _argsOindent :: Int+              _argsOppconf :: PrettyPrintConfig+              _argsIcomments :: ([MToken])+              _argsIcopy :: Args+              _argsIisMultiline :: Bool+              _argsIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 959 "src/GLua/AG/PrettyPrint.ag" #-}+                   zchr ':' <> tok fn_ <> _argsIpretty+                   {-# LINE 5969 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 960 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argsIisMultiline+                   {-# LINE 5974 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 5979 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 5984 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   MetaCall fn_ _argsIcopy+                   {-# LINE 5989 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 5994 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _argsIcomments+                   {-# LINE 5999 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6004 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 6009 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 6014 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _argsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 6019 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _argsIcomments,_argsIcopy,_argsIisMultiline,_argsIpretty) =+                  args_ _argsOcomments _argsOforceMultiline _argsOindent _argsOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_PFExprSuffix_ExprIndex :: T_MExpr ->+                              T_PFExprSuffix+sem_PFExprSuffix_ExprIndex index_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _indexOparentOperatorPrecedence :: OperatorLevel+              _indexOparentOperatorAssociative :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: PFExprSuffix+              _lhsOcomments :: ([MToken])+              _indexOcomments :: ([MToken])+              _indexOforceMultiline :: Bool+              _indexOindent :: Int+              _indexOppconf :: PrettyPrintConfig+              _indexIcomments :: ([MToken])+              _indexIcopy :: MExpr+              _indexIendsWithPrefixExpression :: Bool+              _indexIisAssociative :: Bool+              _indexIisLiteral :: Bool+              _indexIisMultiline :: Bool+              _indexIpos :: Region+              _indexIprecedence :: OperatorLevel+              _indexIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 962 "src/GLua/AG/PrettyPrint.ag" #-}+                   brackets _lhsIppconf _indexIpretty+                   {-# LINE 6055 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 963 "src/GLua/AG/PrettyPrint.ag" #-}+                   _indexIisMultiline+                   {-# LINE 6060 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _indexOparentOperatorPrecedence =+                  ({-# LINE 964 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 6065 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _indexOparentOperatorAssociative =+                  ({-# LINE 965 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 6070 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _indexIisAssociative+                   {-# LINE 6075 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   _indexIprecedence+                   {-# LINE 6080 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ExprIndex _indexIcopy+                   {-# LINE 6085 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6090 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _indexIcomments+                   {-# LINE 6095 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _indexOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6100 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _indexOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 6105 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _indexOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 6110 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _indexOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 6115 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _indexIcomments,_indexIcopy,_indexIendsWithPrefixExpression,_indexIisAssociative,_indexIisLiteral,_indexIisMultiline,_indexIpos,_indexIprecedence,_indexIpretty) =+                  index_ _indexOcomments _indexOforceMultiline _indexOindent _indexOparentOperatorAssociative _indexOparentOperatorPrecedence _indexOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+sem_PFExprSuffix_DotIndex :: MToken ->+                             T_PFExprSuffix+sem_PFExprSuffix_DotIndex index_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: PFExprSuffix+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 967 "src/GLua/AG/PrettyPrint.ag" #-}+                   zchr '.' <> tok index_+                   {-# LINE 6136 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 968 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6141 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6146 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   OperatorLevel8+                   {-# LINE 6151 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   DotIndex index_+                   {-# LINE 6156 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6161 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6166 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty)))+-- PrefixExp ---------------------------------------------------+-- cata+sem_PrefixExp :: PrefixExp ->+                 T_PrefixExp+sem_PrefixExp (PFVar _name _suffixes) =+    (sem_PrefixExp_PFVar _name (sem_ExprSuffixList _suffixes))+sem_PrefixExp (ExprVar _expr _suffixes) =+    (sem_PrefixExp_ExprVar (sem_MExpr _expr) (sem_ExprSuffixList _suffixes))+-- semantic domain+type T_PrefixExp = ([MToken]) ->+                   Bool ->+                   Int ->+                   Bool ->+                   OperatorLevel ->+                   PrettyPrintConfig ->+                   ( ([MToken]),PrefixExp,Bool,Bool,Bool,OperatorLevel,Doc,Bool)+data Inh_PrefixExp = Inh_PrefixExp {comments_Inh_PrefixExp :: ([MToken]),forceMultiline_Inh_PrefixExp :: Bool,indent_Inh_PrefixExp :: Int,parentOperatorAssociative_Inh_PrefixExp :: Bool,parentOperatorPrecedence_Inh_PrefixExp :: OperatorLevel,ppconf_Inh_PrefixExp :: PrettyPrintConfig}+data Syn_PrefixExp = Syn_PrefixExp {comments_Syn_PrefixExp :: ([MToken]),copy_Syn_PrefixExp :: PrefixExp,isAssociative_Syn_PrefixExp :: Bool,isLiteral_Syn_PrefixExp :: Bool,isMultiline_Syn_PrefixExp :: Bool,precedence_Syn_PrefixExp :: OperatorLevel,pretty_Syn_PrefixExp :: Doc,startsWithExprPrefixExpression_Syn_PrefixExp :: Bool}+wrap_PrefixExp :: T_PrefixExp ->+                  Inh_PrefixExp ->+                  Syn_PrefixExp+wrap_PrefixExp sem (Inh_PrefixExp _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIparentOperatorAssociative _lhsIparentOperatorPrecedence _lhsIppconf+     in  (Syn_PrefixExp _lhsOcomments _lhsOcopy _lhsOisAssociative _lhsOisLiteral _lhsOisMultiline _lhsOprecedence _lhsOpretty _lhsOstartsWithExprPrefixExpression))+sem_PrefixExp_PFVar :: MToken ->+                       T_ExprSuffixList ->+                       T_PrefixExp+sem_PrefixExp_PFVar name_ suffixes_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisLiteral :: Bool+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOprecedence :: OperatorLevel+              _lhsOcopy :: PrefixExp+              _lhsOcomments :: ([MToken])+              _suffixesOcomments :: ([MToken])+              _suffixesOforceMultiline :: Bool+              _suffixesOindent :: Int+              _suffixesOppconf :: PrettyPrintConfig+              _suffixesIcomments :: ([MToken])+              _suffixesIcopy :: ExprSuffixList+              _suffixesIisAssociative :: Bool+              _suffixesIisMultiline :: Bool+              _suffixesIprecedence :: OperatorLevel+              _suffixesIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 903 "src/GLua/AG/PrettyPrint.ag" #-}+                   tok name_ <> _suffixesIpretty+                   {-# LINE 6224 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 904 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6229 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 905 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6234 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 906 "src/GLua/AG/PrettyPrint.ag" #-}+                   _suffixesIisMultiline+                   {-# LINE 6239 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _suffixesIisAssociative+                   {-# LINE 6244 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 282 "src/GLua/AG/PrettyPrint.ag" #-}+                   _suffixesIprecedence+                   {-# LINE 6249 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   PFVar name_ _suffixesIcopy+                   {-# LINE 6254 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6259 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _suffixesIcomments+                   {-# LINE 6264 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _suffixesOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6269 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _suffixesOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 6274 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _suffixesOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 6279 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _suffixesOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 6284 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) =+                  suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_PrefixExp_ExprVar :: T_MExpr ->+                         T_ExprSuffixList ->+                         T_PrefixExp+sem_PrefixExp_ExprVar expr_ suffixes_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIparentOperatorAssociative+       _lhsIparentOperatorPrecedence+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOprecedence :: OperatorLevel+              _lhsOisLiteral :: Bool+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisAssociative :: Bool+              _lhsOcopy :: PrefixExp+              _lhsOcomments :: ([MToken])+              _exprOcomments :: ([MToken])+              _exprOforceMultiline :: Bool+              _exprOindent :: Int+              _exprOparentOperatorAssociative :: Bool+              _exprOparentOperatorPrecedence :: OperatorLevel+              _exprOppconf :: PrettyPrintConfig+              _suffixesOcomments :: ([MToken])+              _suffixesOforceMultiline :: Bool+              _suffixesOindent :: Int+              _suffixesOppconf :: PrettyPrintConfig+              _exprIcomments :: ([MToken])+              _exprIcopy :: MExpr+              _exprIendsWithPrefixExpression :: Bool+              _exprIisAssociative :: Bool+              _exprIisLiteral :: Bool+              _exprIisMultiline :: Bool+              _exprIpos :: Region+              _exprIprecedence :: OperatorLevel+              _exprIpretty :: Doc+              _suffixesIcomments :: ([MToken])+              _suffixesIcopy :: ExprSuffixList+              _suffixesIisAssociative :: Bool+              _suffixesIisMultiline :: Bool+              _suffixesIprecedence :: OperatorLevel+              _suffixesIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 908 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if _noparens     then _exprIpretty else parens _lhsIppconf NonEmpty _exprIpretty)+                   <> _suffixesIpretty+                   {-# LINE 6336 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOprecedence =+                  ({-# LINE 911 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _noparens     then _exprIprecedence else OperatorLevel8+                   {-# LINE 6341 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLiteral =+                  ({-# LINE 912 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6346 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 913 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 6351 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 914 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIisMultiline || _suffixesIisMultiline+                   {-# LINE 6356 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _containsParenthesizedExpr =+                  ({-# LINE 918 "src/GLua/AG/PrettyPrint.ag" #-}+                   case _exprIcopy of+                       MExpr _ (APrefixExpr (ExprVar (MExpr _ AVarArg) _)) -> False+                       MExpr _ (APrefixExpr _) -> True+                       _ -> False+                   {-# LINE 6364 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _noparens =+                  ({-# LINE 924 "src/GLua/AG/PrettyPrint.ag" #-}+                   (removeRedundantParens _lhsIppconf || minimizeParens _lhsIppconf)+                   && (_containsParenthesizedExpr+                        || (_lhsIparentOperatorPrecedence == TopLevelExpression || _exprIisLiteral)+                        && length _suffixesIcopy == 0+                    )+                   || (minimizeParens _lhsIppconf && length _suffixesIcopy == 0+                       && ( _lhsIparentOperatorPrecedence < _exprIprecedence+                        || assumeOperatorAssociativity _lhsIppconf+                        && _lhsIparentOperatorPrecedence == _exprIprecedence+                        && _lhsIparentOperatorAssociative+                       )+                   )+                   {-# LINE 6380 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisAssociative =+                  ({-# LINE 284 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIisAssociative && _suffixesIisAssociative+                   {-# LINE 6385 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ExprVar _exprIcopy _suffixesIcopy+                   {-# LINE 6390 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6395 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _suffixesIcomments+                   {-# LINE 6400 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6405 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 6410 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 6415 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOparentOperatorAssociative =+                  ({-# LINE 275 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIparentOperatorAssociative+                   {-# LINE 6420 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOparentOperatorPrecedence =+                  ({-# LINE 274 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIparentOperatorPrecedence+                   {-# LINE 6425 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 6430 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _suffixesOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprIcomments+                   {-# LINE 6435 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _suffixesOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 6440 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _suffixesOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 6445 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _suffixesOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 6450 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _exprIcomments,_exprIcopy,_exprIendsWithPrefixExpression,_exprIisAssociative,_exprIisLiteral,_exprIisMultiline,_exprIpos,_exprIprecedence,_exprIpretty) =+                  expr_ _exprOcomments _exprOforceMultiline _exprOindent _exprOparentOperatorAssociative _exprOparentOperatorPrecedence _exprOppconf+              ( _suffixesIcomments,_suffixesIcopy,_suffixesIisAssociative,_suffixesIisMultiline,_suffixesIprecedence,_suffixesIpretty) =+                  suffixes_ _suffixesOcomments _suffixesOforceMultiline _suffixesOindent _suffixesOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisAssociative,_lhsOisLiteral,_lhsOisMultiline,_lhsOprecedence,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+-- Stat --------------------------------------------------------+-- cata+sem_Stat :: Stat ->+            T_Stat+sem_Stat (Def _vars) =+    (sem_Stat_Def (sem_VarsList _vars))+sem_Stat (LocDef _vars) =+    (sem_Stat_LocDef (sem_VarsList _vars))+sem_Stat (AFuncCall _fn) =+    (sem_Stat_AFuncCall (sem_PrefixExp _fn))+sem_Stat (ALabel _lbl) =+    (sem_Stat_ALabel _lbl)+sem_Stat (ABreak) =+    (sem_Stat_ABreak)+sem_Stat (AContinue) =+    (sem_Stat_AContinue)+sem_Stat (AGoto _lbl) =+    (sem_Stat_AGoto _lbl)+sem_Stat (ADo _body) =+    (sem_Stat_ADo (sem_Block _body))+sem_Stat (AWhile _cond _body) =+    (sem_Stat_AWhile (sem_MExpr _cond) (sem_Block _body))+sem_Stat (ARepeat _body _cond) =+    (sem_Stat_ARepeat (sem_Block _body) (sem_MExpr _cond))+sem_Stat (AIf _cond _body _elifs _els) =+    (sem_Stat_AIf (sem_MExpr _cond) (sem_Block _body) (sem_ElseIfList _elifs) (sem_Else _els))+sem_Stat (ANFor _var _val _to _step _body) =+    (sem_Stat_ANFor _var (sem_MExpr _val) (sem_MExpr _to) (sem_MExpr _step) (sem_Block _body))+sem_Stat (AGFor _vars _vals _body) =+    (sem_Stat_AGFor _vars (sem_MExprList _vals) (sem_Block _body))+sem_Stat (AFunc _name _args _body) =+    (sem_Stat_AFunc (sem_FuncName _name) _args (sem_Block _body))+sem_Stat (ALocFunc _name _args _body) =+    (sem_Stat_ALocFunc (sem_FuncName _name) _args (sem_Block _body))+-- semantic domain+type T_Stat = ([MToken]) ->+              Bool ->+              Int ->+              Bool ->+              PrettyPrintConfig ->+              Region ->+              Bool ->+              ( ([MToken]),Stat,Bool,Bool,Doc,Bool)+data Inh_Stat = Inh_Stat {comments_Inh_Stat :: ([MToken]),forceMultiline_Inh_Stat :: Bool,indent_Inh_Stat :: Int,isLastStatement_Inh_Stat :: Bool,ppconf_Inh_Stat :: PrettyPrintConfig,statRegion_Inh_Stat :: Region,wouldBeAmbiguousWithoutSemicolon_Inh_Stat :: Bool}+data Syn_Stat = Syn_Stat {comments_Syn_Stat :: ([MToken]),copy_Syn_Stat :: Stat,endsWithPrefixExpression_Syn_Stat :: Bool,isMultiline_Syn_Stat :: Bool,pretty_Syn_Stat :: Doc,startsWithExprPrefixExpression_Syn_Stat :: Bool}+wrap_Stat :: T_Stat ->+             Inh_Stat ->+             Syn_Stat+wrap_Stat sem (Inh_Stat _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIisLastStatement _lhsIppconf _lhsIstatRegion _lhsIwouldBeAmbiguousWithoutSemicolon+     in  (Syn_Stat _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression))+sem_Stat_Def :: T_VarsList ->+                T_Stat+sem_Stat_Def vars_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _varsOcomments :: ([MToken])+              _varsOforceMultiline :: Bool+              _varsOindent :: Int+              _varsOppconf :: PrettyPrintConfig+              _varsIcomments :: ([MToken])+              _varsIcopy :: VarsList+              _varsIendsWithPrefixExpression :: Bool+              _varsIexprPretty :: Doc+              _varsIisDefined :: Bool+              _varsIisLast :: Bool+              _varsIisMultiline :: Bool+              _varsIpretty :: Doc+              _varsIstartsWithExprPrefixExpression :: Bool+              _varsIvarPretty :: Doc+              _lhsOpretty =+                  ({-# LINE 642 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIpretty <> _semicolon+                   {-# LINE 6541 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 643 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIstartsWithExprPrefixExpression+                   {-# LINE 6546 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 644 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIendsWithPrefixExpression+                   {-# LINE 6551 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 645 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIisMultiline+                   {-# LINE 6556 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _semicolon =+                  ({-# LINE 646 "src/GLua/AG/PrettyPrint.ag" #-}+                   if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon+                   then zchr ';'+                   else empty+                   {-# LINE 6563 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   Def _varsIcopy+                   {-# LINE 6568 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6573 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIcomments+                   {-# LINE 6578 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6583 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 6588 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varsOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 6593 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 6598 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) =+                  vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_LocDef :: T_VarsList ->+                   T_Stat+sem_Stat_LocDef vars_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _varsOcomments :: ([MToken])+              _varsOforceMultiline :: Bool+              _varsOindent :: Int+              _varsOppconf :: PrettyPrintConfig+              _varsIcomments :: ([MToken])+              _varsIcopy :: VarsList+              _varsIendsWithPrefixExpression :: Bool+              _varsIexprPretty :: Doc+              _varsIisDefined :: Bool+              _varsIisLast :: Bool+              _varsIisMultiline :: Bool+              _varsIpretty :: Doc+              _varsIstartsWithExprPrefixExpression :: Bool+              _varsIvarPretty :: Doc+              _lhsOpretty =+                  ({-# LINE 651 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "local" <-> _varsIpretty <> _semicolon+                   {-# LINE 6636 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 652 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIstartsWithExprPrefixExpression+                   {-# LINE 6641 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 653 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIendsWithPrefixExpression+                   {-# LINE 6646 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 654 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIisMultiline+                   {-# LINE 6651 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _semicolon =+                  ({-# LINE 655 "src/GLua/AG/PrettyPrint.ag" #-}+                   if semicolons _lhsIppconf || _lhsIwouldBeAmbiguousWithoutSemicolon+                   then zchr ';'+                   else empty+                   {-# LINE 6658 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   LocDef _varsIcopy+                   {-# LINE 6663 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6668 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varsIcomments+                   {-# LINE 6673 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6678 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 6683 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varsOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 6688 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 6693 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _varsIcomments,_varsIcopy,_varsIendsWithPrefixExpression,_varsIexprPretty,_varsIisDefined,_varsIisLast,_varsIisMultiline,_varsIpretty,_varsIstartsWithExprPrefixExpression,_varsIvarPretty) =+                  vars_ _varsOcomments _varsOforceMultiline _varsOindent _varsOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AFuncCall :: T_PrefixExp ->+                      T_Stat+sem_Stat_AFuncCall fn_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _fnOparentOperatorPrecedence :: OperatorLevel+              _fnOparentOperatorAssociative :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _fnOcomments :: ([MToken])+              _fnOforceMultiline :: Bool+              _fnOindent :: Int+              _fnOppconf :: PrettyPrintConfig+              _fnIcomments :: ([MToken])+              _fnIcopy :: PrefixExp+              _fnIisAssociative :: Bool+              _fnIisLiteral :: Bool+              _fnIisMultiline :: Bool+              _fnIprecedence :: OperatorLevel+              _fnIpretty :: Doc+              _fnIstartsWithExprPrefixExpression :: Bool+              _lhsOpretty =+                  ({-# LINE 660 "src/GLua/AG/PrettyPrint.ag" #-}+                   _fnIpretty <> _semicolon+                   {-# LINE 6731 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 661 "src/GLua/AG/PrettyPrint.ag" #-}+                   _fnIisMultiline+                   {-# LINE 6736 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _semicolon =+                  ({-# LINE 662 "src/GLua/AG/PrettyPrint.ag" #-}+                   if semicolons _lhsIppconf then zchr ';' else empty+                   {-# LINE 6741 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 663 "src/GLua/AG/PrettyPrint.ag" #-}+                   _fnIstartsWithExprPrefixExpression+                   {-# LINE 6746 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 664 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 6751 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fnOparentOperatorPrecedence =+                  ({-# LINE 665 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 6756 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fnOparentOperatorAssociative =+                  ({-# LINE 666 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 6761 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AFuncCall _fnIcopy+                   {-# LINE 6766 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6771 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _fnIcomments+                   {-# LINE 6776 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fnOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6781 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fnOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 6786 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fnOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 6791 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _fnOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 6796 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _fnIcomments,_fnIcopy,_fnIisAssociative,_fnIisLiteral,_fnIisMultiline,_fnIprecedence,_fnIpretty,_fnIstartsWithExprPrefixExpression) =+                  fn_ _fnOcomments _fnOforceMultiline _fnOindent _fnOparentOperatorAssociative _fnOparentOperatorPrecedence _fnOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ALabel :: MToken ->+                   T_Stat+sem_Stat_ALabel lbl_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 668 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "::"+                   <> _whitespace+                   <> tok lbl_+                   <> _whitespace+                   <> zeroWidthText "::"+                   {-# LINE 6824 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 674 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6829 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 675 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6834 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 676 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6839 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _whitespace =+                  ({-# LINE 677 "src/GLua/AG/PrettyPrint.ag" #-}+                   if spaceAfterLabel _lhsIppconf then zeroWidthText " " else empty+                   {-# LINE 6844 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ALabel lbl_+                   {-# LINE 6849 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6854 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6859 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ABreak :: T_Stat+sem_Stat_ABreak =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 679 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "break" <> _semicolon+                   {-# LINE 6880 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 680 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6885 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 681 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6890 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 682 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6895 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _semicolon =+                  ({-# LINE 683 "src/GLua/AG/PrettyPrint.ag" #-}+                   if semicolons _lhsIppconf then zchr ';' else empty+                   {-# LINE 6900 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ABreak+                   {-# LINE 6905 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6910 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6915 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AContinue :: T_Stat+sem_Stat_AContinue =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 685 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "continue" <> _semicolon+                   {-# LINE 6936 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 686 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6941 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 687 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6946 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 688 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6951 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _semicolon =+                  ({-# LINE 689 "src/GLua/AG/PrettyPrint.ag" #-}+                   if semicolons _lhsIppconf then zchr ';' else empty+                   {-# LINE 6956 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AContinue+                   {-# LINE 6961 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 6966 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 6971 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AGoto :: MToken ->+                  T_Stat+sem_Stat_AGoto lbl_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 691 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "goto" <-> tok lbl_ <> _semicolon+                   {-# LINE 6993 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 692 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 6998 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 693 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7003 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 694 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7008 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _semicolon =+                  ({-# LINE 695 "src/GLua/AG/PrettyPrint.ag" #-}+                   if semicolons _lhsIppconf then zchr ';' else empty+                   {-# LINE 7013 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AGoto lbl_+                   {-# LINE 7018 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 7023 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 7028 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ADo :: T_Block ->+                T_Stat+sem_Stat_ADo body_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOisMultiline :: Bool+              _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _bodyOindent :: Int+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _lhsOisMultiline =+                  ({-# LINE 697 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7060 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 698 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "do"+                   $+$ _bodyIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+                   {-# LINE 7067 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 702 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7072 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 703 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7077 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 704 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 7082 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ADo _bodyIcopy+                   {-# LINE 7087 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 7092 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 7097 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 7102 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7107 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7112 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 7117 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AWhile :: T_MExpr ->+                   T_Block ->+                   T_Stat+sem_Stat_AWhile cond_ body_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOisMultiline :: Bool+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _condOparentOperatorPrecedence :: OperatorLevel+              _condOparentOperatorAssociative :: Bool+              _lhsOpretty :: Doc+              _bodyOindent :: Int+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _condOcomments :: ([MToken])+              _condOforceMultiline :: Bool+              _condOindent :: Int+              _condOppconf :: PrettyPrintConfig+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _condIcomments :: ([MToken])+              _condIcopy :: MExpr+              _condIendsWithPrefixExpression :: Bool+              _condIisAssociative :: Bool+              _condIisLiteral :: Bool+              _condIisMultiline :: Bool+              _condIpos :: Region+              _condIprecedence :: OperatorLevel+              _condIpretty :: Doc+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _lhsOisMultiline =+                  ({-# LINE 706 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7167 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 707 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7172 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 708 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7177 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOparentOperatorPrecedence =+                  ({-# LINE 709 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 7182 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOparentOperatorAssociative =+                  ({-# LINE 710 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7187 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 711 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "while"+                   <-> _condIpretty+                   <-> zeroWidthText "do"+                   $+$ _bodyIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+                   {-# LINE 7196 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 717 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 7201 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AWhile _condIcopy _bodyIcopy+                   {-# LINE 7206 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 7211 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 7216 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 7221 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7226 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 7231 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7236 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _condIcomments+                   {-# LINE 7241 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7246 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7251 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 7256 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =+                  cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ARepeat :: T_Block ->+                    T_MExpr ->+                    T_Stat+sem_Stat_ARepeat body_ cond_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _bodyOindent :: Int+              _condOparentOperatorPrecedence :: OperatorLevel+              _condOparentOperatorAssociative :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _condOcomments :: ([MToken])+              _condOforceMultiline :: Bool+              _condOindent :: Int+              _condOppconf :: PrettyPrintConfig+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _condIcomments :: ([MToken])+              _condIcopy :: MExpr+              _condIendsWithPrefixExpression :: Bool+              _condIisAssociative :: Bool+              _condIisLiteral :: Bool+              _condIisMultiline :: Bool+              _condIpos :: Region+              _condIprecedence :: OperatorLevel+              _condIpretty :: Doc+              _lhsOpretty =+                  ({-# LINE 719 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "repeat"+                   $+$ _bodyIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "until" <-> _condIpretty)+                   {-# LINE 7310 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 723 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7315 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 724 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7320 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 725 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7325 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 726 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 7330 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOparentOperatorPrecedence =+                  ({-# LINE 727 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 7335 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOparentOperatorAssociative =+                  ({-# LINE 728 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7340 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ARepeat _bodyIcopy _condIcopy+                   {-# LINE 7345 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 7350 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _condIcomments+                   {-# LINE 7355 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 7360 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7365 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7370 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 7375 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 7380 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7385 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 7390 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7395 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+              ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =+                  cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AIf :: T_MExpr ->+                T_Block ->+                T_ElseIfList ->+                T_Else ->+                T_Stat+sem_Stat_AIf cond_ body_ elifs_ els_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _condOcomments :: ([MToken])+              _condOparentOperatorPrecedence :: OperatorLevel+              _condOparentOperatorAssociative :: Bool+              _bodyOindent :: Int+              _bodyOstatRegion :: Region+              _lhsOpretty :: Doc+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _lhsOisMultiline :: Bool+              _condOforceMultiline :: Bool+              _condOindent :: Int+              _condOppconf :: PrettyPrintConfig+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _elifsOcomments :: ([MToken])+              _elifsOforceMultiline :: Bool+              _elifsOindent :: Int+              _elifsOppconf :: PrettyPrintConfig+              _elsOcomments :: ([MToken])+              _elsOforceMultiline :: Bool+              _elsOindent :: Int+              _elsOppconf :: PrettyPrintConfig+              _elsOstatRegion :: Region+              _condIcomments :: ([MToken])+              _condIcopy :: MExpr+              _condIendsWithPrefixExpression :: Bool+              _condIisAssociative :: Bool+              _condIisLiteral :: Bool+              _condIisMultiline :: Bool+              _condIpos :: Region+              _condIprecedence :: OperatorLevel+              _condIpretty :: Doc+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _elifsIcomments :: ([MToken])+              _elifsIcopy :: ElseIfList+              _elifsIelsesExist :: Bool+              _elifsIisMultiline :: Bool+              _elifsIpos :: Region+              _elifsIpretty :: Doc+              _elsIcomments :: ([MToken])+              _elsIcopy :: Else+              _elsIelsesExist :: Bool+              _elsIisMultiline :: Bool+              _elsIpos :: Region+              _elsIpretty :: Doc+              _isMultiline =+                  ({-# LINE 730 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   || _condIisMultiline+                   || _bodyIisMultiline+                   || _elifsIelsesExist+                   || _elsIelsesExist+                   {-# LINE 7474 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 736 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7479 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 737 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7484 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _singleLinePretty =+                  ({-# LINE 738 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "if"+                   <-> _condIpretty+                   <-> zeroWidthText "then"+                   <-> _bodyIpretty+                   <-> zeroWidthText "end"+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen    )+                   {-# LINE 7494 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _multilinePretty =+                  ({-# LINE 745 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "if"+                   <-> _condIpretty+                   <-> zeroWidthText "then"+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterThen    )+                   $+$ _bodyIpretty+                   $+$ _elifsIpretty+                   $+$ _elsIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+                   {-# LINE 7506 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfterThen =+                  ({-# LINE 755 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeOrOnLine` _condIpos) _lhsIcomments+                   {-# LINE 7511 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOcomments =+                  ({-# LINE 757 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfterThen+                   {-# LINE 7516 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOparentOperatorPrecedence =+                  ({-# LINE 759 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 7521 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOparentOperatorAssociative =+                  ({-# LINE 760 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7526 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 761 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _isMultiline     then _lhsIindent + 1 else 0+                   {-# LINE 7531 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 762 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion `upto` _elifsIpos `upto` _elsIpos+                   {-# LINE 7536 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 763 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _isMultiline     then _multilinePretty     else _singleLinePretty+                   {-# LINE 7541 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AIf _condIcopy _bodyIcopy _elifsIcopy _elsIcopy+                   {-# LINE 7546 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 7551 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _elsIcomments+                   {-# LINE 7556 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 266 "src/GLua/AG/PrettyPrint.ag" #-}+                   _isMultiline+                   {-# LINE 7561 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7566 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 7571 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _condOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7576 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _condIcomments+                   {-# LINE 7581 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7586 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7591 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elifsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 7596 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elifsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7601 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elifsOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 7606 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elifsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7611 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _elifsIcomments+                   {-# LINE 7616 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elsOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7621 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elsOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 7626 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7631 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _elsOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 7636 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _condIcomments,_condIcopy,_condIendsWithPrefixExpression,_condIisAssociative,_condIisLiteral,_condIisMultiline,_condIpos,_condIprecedence,_condIpretty) =+                  cond_ _condOcomments _condOforceMultiline _condOindent _condOparentOperatorAssociative _condOparentOperatorPrecedence _condOppconf+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+              ( _elifsIcomments,_elifsIcopy,_elifsIelsesExist,_elifsIisMultiline,_elifsIpos,_elifsIpretty) =+                  elifs_ _elifsOcomments _elifsOforceMultiline _elifsOindent _elifsOppconf+              ( _elsIcomments,_elsIcopy,_elsIelsesExist,_elsIisMultiline,_elsIpos,_elsIpretty) =+                  els_ _elsOcomments _elsOforceMultiline _elsOindent _elsOppconf _elsOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ANFor :: MToken ->+                  T_MExpr ->+                  T_MExpr ->+                  T_MExpr ->+                  T_Block ->+                  T_Stat+sem_Stat_ANFor var_ val_ to_ step_ body_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOisMultiline :: Bool+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOpretty :: Doc+              _valOcomments :: ([MToken])+              _valOparentOperatorPrecedence :: OperatorLevel+              _valOparentOperatorAssociative :: Bool+              _toOparentOperatorPrecedence :: OperatorLevel+              _toOparentOperatorAssociative :: Bool+              _stepOparentOperatorPrecedence :: OperatorLevel+              _stepOparentOperatorAssociative :: Bool+              _bodyOindent :: Int+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _valOforceMultiline :: Bool+              _valOindent :: Int+              _valOppconf :: PrettyPrintConfig+              _toOcomments :: ([MToken])+              _toOforceMultiline :: Bool+              _toOindent :: Int+              _toOppconf :: PrettyPrintConfig+              _stepOcomments :: ([MToken])+              _stepOforceMultiline :: Bool+              _stepOindent :: Int+              _stepOppconf :: PrettyPrintConfig+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _valIcomments :: ([MToken])+              _valIcopy :: MExpr+              _valIendsWithPrefixExpression :: Bool+              _valIisAssociative :: Bool+              _valIisLiteral :: Bool+              _valIisMultiline :: Bool+              _valIpos :: Region+              _valIprecedence :: OperatorLevel+              _valIpretty :: Doc+              _toIcomments :: ([MToken])+              _toIcopy :: MExpr+              _toIendsWithPrefixExpression :: Bool+              _toIisAssociative :: Bool+              _toIisLiteral :: Bool+              _toIisMultiline :: Bool+              _toIpos :: Region+              _toIprecedence :: OperatorLevel+              _toIpretty :: Doc+              _stepIcomments :: ([MToken])+              _stepIcopy :: MExpr+              _stepIendsWithPrefixExpression :: Bool+              _stepIisAssociative :: Bool+              _stepIisLiteral :: Bool+              _stepIisMultiline :: Bool+              _stepIpos :: Region+              _stepIprecedence :: OperatorLevel+              _stepIpretty :: Doc+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _lhsOisMultiline =+                  ({-# LINE 765 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7725 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 766 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7730 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 767 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7735 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _step =+                  ({-# LINE 768 "src/GLua/AG/PrettyPrint.ag" #-}+                   case _stepIcopy of+                       MExpr _ (ANumber "1") -> empty+                       _ -> _comma     <> _stepIpretty+                   {-# LINE 7742 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 771 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "for"+                   <-> tok var_+                   <-> zchr '='+                   <-> _valIpretty+                   <> _comma+                   <> _toIpretty+                   <> _step+                   <-> zeroWidthText "do"+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor    )+                   $+$ _bodyIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+                   {-# LINE 7757 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _comma =+                  ({-# LINE 783 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+                   <> zchr ','+                   <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+                   {-# LINE 7764 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfterFor =+                  ({-# LINE 787 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeOrOnLine` mpos var_) _lhsIcomments+                   {-# LINE 7769 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valOcomments =+                  ({-# LINE 789 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfterFor+                   {-# LINE 7774 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valOparentOperatorPrecedence =+                  ({-# LINE 790 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 7779 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valOparentOperatorAssociative =+                  ({-# LINE 791 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7784 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _toOparentOperatorPrecedence =+                  ({-# LINE 792 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 7789 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _toOparentOperatorAssociative =+                  ({-# LINE 793 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7794 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _stepOparentOperatorPrecedence =+                  ({-# LINE 794 "src/GLua/AG/PrettyPrint.ag" #-}+                   TopLevelExpression+                   {-# LINE 7799 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _stepOparentOperatorAssociative =+                  ({-# LINE 795 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7804 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 796 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 7809 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ANFor var_ _valIcopy _toIcopy _stepIcopy _bodyIcopy+                   {-# LINE 7814 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 7819 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 7824 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7829 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 7834 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7839 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _toOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valIcomments+                   {-# LINE 7844 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _toOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7849 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _toOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 7854 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _toOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7859 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _stepOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _toIcomments+                   {-# LINE 7864 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _stepOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7869 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _stepOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 7874 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _stepOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7879 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _stepIcomments+                   {-# LINE 7884 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 7889 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 7894 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 7899 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _valIcomments,_valIcopy,_valIendsWithPrefixExpression,_valIisAssociative,_valIisLiteral,_valIisMultiline,_valIpos,_valIprecedence,_valIpretty) =+                  val_ _valOcomments _valOforceMultiline _valOindent _valOparentOperatorAssociative _valOparentOperatorPrecedence _valOppconf+              ( _toIcomments,_toIcopy,_toIendsWithPrefixExpression,_toIisAssociative,_toIisLiteral,_toIisMultiline,_toIpos,_toIprecedence,_toIpretty) =+                  to_ _toOcomments _toOforceMultiline _toOindent _toOparentOperatorAssociative _toOparentOperatorPrecedence _toOppconf+              ( _stepIcomments,_stepIcopy,_stepIendsWithPrefixExpression,_stepIisAssociative,_stepIisLiteral,_stepIisMultiline,_stepIpos,_stepIprecedence,_stepIpretty) =+                  step_ _stepOcomments _stepOforceMultiline _stepOindent _stepOparentOperatorAssociative _stepOparentOperatorPrecedence _stepOppconf+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AGFor :: ([MToken]) ->+                  T_MExprList ->+                  T_Block ->+                  T_Stat+sem_Stat_AGFor vars_ vals_ body_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOisMultiline :: Bool+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOpretty :: Doc+              _bodyOindent :: Int+              _valsOcomments :: ([MToken])+              _valsOforceMultiline :: Bool+              _valsOsomeElementsInListAreMultiline :: Bool+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _valsOindent :: Int+              _valsOppconf :: PrettyPrintConfig+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _valsIcomments :: ([MToken])+              _valsIcopy :: MExprList+              _valsIisAssociative :: Bool+              _valsIisLast :: Bool+              _valsIisMultiline :: Bool+              _valsIpos :: Region+              _valsIprecedence :: OperatorLevel+              _valsIpretty :: Doc+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _lhsOisMultiline =+                  ({-# LINE 798 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 7954 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 799 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7959 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 800 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 7964 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 801 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "for"+                   <-> printList tok (render _comma    ) vars_+                   <-> zeroWidthText "in"+                   <-> _valsIpretty+                   <-> zeroWidthText "do"+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFor    )+                   $+$ _bodyIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+                   {-# LINE 7976 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 810 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 7981 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _comma =+                  ({-# LINE 811 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+                   <> zchr ','+                   <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+                   {-# LINE 7988 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfterFor =+                  ({-# LINE 815 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeOrOnLine` mpos (head vars_)) _lhsIcomments+                   {-# LINE 7993 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valsOcomments =+                  ({-# LINE 817 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfterFor+                   {-# LINE 7998 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valsOforceMultiline =+                  ({-# LINE 819 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8003 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valsOsomeElementsInListAreMultiline =+                  ({-# LINE 820 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8008 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AGFor vars_ _valsIcopy _bodyIcopy+                   {-# LINE 8013 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 8018 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 8023 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valsOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 8028 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _valsOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 8033 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _valsIcomments+                   {-# LINE 8038 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 8043 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 8048 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 8053 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _valsIcomments,_valsIcopy,_valsIisAssociative,_valsIisLast,_valsIisMultiline,_valsIpos,_valsIprecedence,_valsIpretty) =+                  vals_ _valsOcomments _valsOforceMultiline _valsOindent _valsOppconf _valsOsomeElementsInListAreMultiline+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_AFunc :: T_FuncName ->+                  ([MToken]) ->+                  T_Block ->+                  T_Stat+sem_Stat_AFunc name_ args_ body_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOisMultiline :: Bool+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOpretty :: Doc+              _nameOcomments :: ([MToken])+              _bodyOindent :: Int+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _nameOindent :: Int+              _nameOppconf :: PrettyPrintConfig+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _nameIcomments :: ([MToken])+              _nameIcopy :: FuncName+              _nameIisMultiline :: Bool+              _nameIpos :: Region+              _nameIpretty :: Doc+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _lhsOisMultiline =+                  ({-# LINE 822 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 8099 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 823 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8104 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 824 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8109 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 825 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "function"+                   <-> _nameIpretty+                   <> parens _lhsIppconf _emptyParams     (printList tok (render _comma    ) args_)+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc    )+                   $+$ _bodyIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+                   {-# LINE 8119 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfterFunc =+                  ({-# LINE 832 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments+                   {-# LINE 8124 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _nameOcomments =+                  ({-# LINE 834 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfterFunc+                   {-# LINE 8129 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _emptyParams =+                  ({-# LINE 835 "src/GLua/AG/PrettyPrint.ag" #-}+                   toEmpty $ null args_+                   {-# LINE 8134 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _comma =+                  ({-# LINE 836 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+                   <> zchr ','+                   <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+                   {-# LINE 8141 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 840 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 8146 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AFunc _nameIcopy args_ _bodyIcopy+                   {-# LINE 8151 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 8156 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 8161 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _nameOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 8166 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _nameOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 8171 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _nameIcomments+                   {-# LINE 8176 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 8181 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 8186 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 8191 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) =+                  name_ _nameOcomments _nameOindent _nameOppconf+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+sem_Stat_ALocFunc :: T_FuncName ->+                     ([MToken]) ->+                     T_Block ->+                     T_Stat+sem_Stat_ALocFunc name_ args_ body_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIisLastStatement+       _lhsIppconf+       _lhsIstatRegion+       _lhsIwouldBeAmbiguousWithoutSemicolon ->+         (let _lhsOisMultiline :: Bool+              _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _nameOcomments :: ([MToken])+              _bodyOindent :: Int+              _lhsOcopy :: Stat+              _lhsOcomments :: ([MToken])+              _nameOindent :: Int+              _nameOppconf :: PrettyPrintConfig+              _bodyOcomments :: ([MToken])+              _bodyOforceMultiline :: Bool+              _bodyOppconf :: PrettyPrintConfig+              _bodyOstatRegion :: Region+              _nameIcomments :: ([MToken])+              _nameIcopy :: FuncName+              _nameIisMultiline :: Bool+              _nameIpos :: Region+              _nameIpretty :: Doc+              _bodyIcomments :: ([MToken])+              _bodyIcopy :: Block+              _bodyIisMultiline :: Bool+              _bodyIpretty :: Doc+              _bodyIstatementCount :: Int+              _lhsOisMultiline =+                  ({-# LINE 842 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 8237 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOpretty =+                  ({-# LINE 843 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "local function"+                   <-> _nameIpretty+                   <> parens _lhsIppconf _emptyParams     (printList tok (render _comma    ) args_)+                   <-> renderSLComments _lhsIppconf _lhsIindent (fst _commentsAfterFunc    )+                   $+$ _bodyIpretty+                   $+$ indent _lhsIppconf _lhsIindent (zeroWidthText "end")+                   {-# LINE 8247 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 850 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8252 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 851 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8257 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _commentsAfterFunc =+                  ({-# LINE 852 "src/GLua/AG/PrettyPrint.ag" #-}+                   span (\(MToken pos _) -> pos `beforeOrOnLine` _nameIpos) _lhsIcomments+                   {-# LINE 8262 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _nameOcomments =+                  ({-# LINE 854 "src/GLua/AG/PrettyPrint.ag" #-}+                   snd _commentsAfterFunc+                   {-# LINE 8267 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _emptyParams =+                  ({-# LINE 855 "src/GLua/AG/PrettyPrint.ag" #-}+                   toEmpty $ null args_+                   {-# LINE 8272 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _comma =+                  ({-# LINE 856 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+                   <> zchr ','+                   <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+                   {-# LINE 8279 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOindent =+                  ({-# LINE 860 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent + 1+                   {-# LINE 8284 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ALocFunc _nameIcopy args_ _bodyIcopy+                   {-# LINE 8289 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 8294 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _bodyIcomments+                   {-# LINE 8299 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _nameOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 8304 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _nameOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 8309 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _nameIcomments+                   {-# LINE 8314 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 8319 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 8324 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _bodyOstatRegion =+                  ({-# LINE 330 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIstatRegion+                   {-# LINE 8329 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _nameIcomments,_nameIcopy,_nameIisMultiline,_nameIpos,_nameIpretty) =+                  name_ _nameOcomments _nameOindent _nameOppconf+              ( _bodyIcomments,_bodyIcopy,_bodyIisMultiline,_bodyIpretty,_bodyIstatementCount) =+                  body_ _bodyOcomments _bodyOforceMultiline _bodyOindent _bodyOppconf _bodyOstatRegion+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression)))+-- UnOp --------------------------------------------------------+-- cata+sem_UnOp :: UnOp ->+            T_UnOp+sem_UnOp (UnMinus) =+    (sem_UnOp_UnMinus)+sem_UnOp (ANot) =+    (sem_UnOp_ANot)+sem_UnOp (AHash) =+    (sem_UnOp_AHash)+-- semantic domain+type T_UnOp = ([MToken]) ->+              Int ->+              PrettyPrintConfig ->+              ( ([MToken]),UnOp,Bool,Doc)+data Inh_UnOp = Inh_UnOp {comments_Inh_UnOp :: ([MToken]),indent_Inh_UnOp :: Int,ppconf_Inh_UnOp :: PrettyPrintConfig}+data Syn_UnOp = Syn_UnOp {comments_Syn_UnOp :: ([MToken]),copy_Syn_UnOp :: UnOp,isMultiline_Syn_UnOp :: Bool,pretty_Syn_UnOp :: Doc}+wrap_UnOp :: T_UnOp ->+             Inh_UnOp ->+             Syn_UnOp+wrap_UnOp sem (Inh_UnOp _lhsIcomments _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty) = sem _lhsIcomments _lhsIindent _lhsIppconf+     in  (Syn_UnOp _lhsOcomments _lhsOcopy _lhsOisMultiline _lhsOpretty))+sem_UnOp_UnMinus :: T_UnOp+sem_UnOp_UnMinus =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOcopy :: UnOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1197 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "-"+                   {-# LINE 8371 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1198 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8376 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   UnMinus+                   {-# LINE 8381 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 8386 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 8391 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+sem_UnOp_ANot :: T_UnOp+sem_UnOp_ANot =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOcopy :: UnOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1200 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText (if cStyle _lhsIppconf then "!" else "not ")+                   {-# LINE 8406 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1201 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8411 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   ANot+                   {-# LINE 8416 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 8421 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 8426 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+sem_UnOp_AHash :: T_UnOp+sem_UnOp_AHash =+    (\ _lhsIcomments+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOisMultiline :: Bool+              _lhsOcopy :: UnOp+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 1203 "src/GLua/AG/PrettyPrint.ag" #-}+                   zeroWidthText "#"+                   {-# LINE 8441 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 1204 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8446 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   AHash+                   {-# LINE 8451 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 8456 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 8461 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOisMultiline,_lhsOpretty)))+-- VarsList ----------------------------------------------------+-- cata+sem_VarsList :: VarsList ->+                T_VarsList+sem_VarsList list =+    (Prelude.foldr sem_VarsList_Cons sem_VarsList_Nil (Prelude.map sem_Declaration list))+-- semantic domain+type T_VarsList = ([MToken]) ->+                  Bool ->+                  Int ->+                  PrettyPrintConfig ->+                  ( ([MToken]),VarsList,Bool,Doc,Bool,Bool,Bool,Doc,Bool,Doc)+data Inh_VarsList = Inh_VarsList {comments_Inh_VarsList :: ([MToken]),forceMultiline_Inh_VarsList :: Bool,indent_Inh_VarsList :: Int,ppconf_Inh_VarsList :: PrettyPrintConfig}+data Syn_VarsList = Syn_VarsList {comments_Syn_VarsList :: ([MToken]),copy_Syn_VarsList :: VarsList,endsWithPrefixExpression_Syn_VarsList :: Bool,exprPretty_Syn_VarsList :: Doc,isDefined_Syn_VarsList :: Bool,isLast_Syn_VarsList :: Bool,isMultiline_Syn_VarsList :: Bool,pretty_Syn_VarsList :: Doc,startsWithExprPrefixExpression_Syn_VarsList :: Bool,varPretty_Syn_VarsList :: Doc}+wrap_VarsList :: T_VarsList ->+                 Inh_VarsList ->+                 Syn_VarsList+wrap_VarsList sem (Inh_VarsList _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf) =+    (let ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty) = sem _lhsIcomments _lhsIforceMultiline _lhsIindent _lhsIppconf+     in  (Syn_VarsList _lhsOcomments _lhsOcopy _lhsOendsWithPrefixExpression _lhsOexprPretty _lhsOisDefined _lhsOisLast _lhsOisMultiline _lhsOpretty _lhsOstartsWithExprPrefixExpression _lhsOvarPretty))+sem_VarsList_Cons :: T_Declaration ->+                     T_VarsList ->+                     T_VarsList+sem_VarsList_Cons hd_ tl_ =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisLast :: Bool+              _lhsOexprPretty :: Doc+              _lhsOisDefined :: Bool+              _lhsOvarPretty :: Doc+              _lhsOcopy :: VarsList+              _lhsOcomments :: ([MToken])+              _hdOcomments :: ([MToken])+              _hdOforceMultiline :: Bool+              _hdOindent :: Int+              _hdOppconf :: PrettyPrintConfig+              _tlOcomments :: ([MToken])+              _tlOforceMultiline :: Bool+              _tlOindent :: Int+              _tlOppconf :: PrettyPrintConfig+              _hdIcomments :: ([MToken])+              _hdIcopy :: Declaration+              _hdIendsWithPrefixExpression :: Bool+              _hdIexprPretty :: Doc+              _hdIisDefined :: Bool+              _hdIisMultiline :: Bool+              _hdIpretty :: Doc+              _hdIstartsWithExprPrefixExpression :: Bool+              _hdIvarPretty :: Doc+              _tlIcomments :: ([MToken])+              _tlIcopy :: VarsList+              _tlIendsWithPrefixExpression :: Bool+              _tlIexprPretty :: Doc+              _tlIisDefined :: Bool+              _tlIisLast :: Bool+              _tlIisMultiline :: Bool+              _tlIpretty :: Doc+              _tlIstartsWithExprPrefixExpression :: Bool+              _tlIvarPretty :: Doc+              _lhsOpretty =+                  ({-# LINE 532 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varPretty+                   <-> if _isDefined     then zchr '=' <-> _exprPretty     else empty+                   {-# LINE 8533 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 535 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIstartsWithExprPrefixExpression+                   {-# LINE 8538 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 536 "src/GLua/AG/PrettyPrint.ag" #-}+                   if _tlIisDefined then _tlIendsWithPrefixExpression else _hdIendsWithPrefixExpression+                   {-# LINE 8543 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 543 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIisMultiline || _tlIisMultiline+                   {-# LINE 8548 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _isDefined =+                  ({-# LINE 544 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIisDefined || _tlIisDefined+                   {-# LINE 8553 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _varPretty =+                  ({-# LINE 545 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIvarPretty+                   <> (if _tlIisLast then empty else _comma    )+                   <> _tlIvarPretty+                   {-# LINE 8560 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _exprPretty =+                  ({-# LINE 549 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIexprPretty+                   <> (if not _tlIisLast && _tlIisDefined then _comma     else empty)+                   <> _tlIexprPretty+                   {-# LINE 8567 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _comma =+                  ({-# LINE 553 "src/GLua/AG/PrettyPrint.ag" #-}+                   (if spaceBeforeComma _lhsIppconf then zchr ' ' else empty)+                   <> zchr ','+                   <> (if spaceAfterComma _lhsIppconf then zchr ' ' else empty)+                   {-# LINE 8574 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLast =+                  ({-# LINE 557 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8579 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOexprPretty =+                  ({-# LINE 288 "src/GLua/AG/PrettyPrint.ag" #-}+                   _exprPretty+                   {-# LINE 8584 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisDefined =+                  ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-}+                   _isDefined+                   {-# LINE 8589 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOvarPretty =+                  ({-# LINE 287 "src/GLua/AG/PrettyPrint.ag" #-}+                   _varPretty+                   {-# LINE 8594 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   (:) _hdIcopy _tlIcopy+                   {-# LINE 8599 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 8604 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _tlIcomments+                   {-# LINE 8609 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 8614 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 8619 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 8624 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _hdOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 8629 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _hdIcomments+                   {-# LINE 8634 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOforceMultiline =+                  ({-# LINE 363 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIforceMultiline+                   {-# LINE 8639 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOindent =+                  ({-# LINE 265 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIindent+                   {-# LINE 8644 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _tlOppconf =+                  ({-# LINE 267 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIppconf+                   {-# LINE 8649 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              ( _hdIcomments,_hdIcopy,_hdIendsWithPrefixExpression,_hdIexprPretty,_hdIisDefined,_hdIisMultiline,_hdIpretty,_hdIstartsWithExprPrefixExpression,_hdIvarPretty) =+                  hd_ _hdOcomments _hdOforceMultiline _hdOindent _hdOppconf+              ( _tlIcomments,_tlIcopy,_tlIendsWithPrefixExpression,_tlIexprPretty,_tlIisDefined,_tlIisLast,_tlIisMultiline,_tlIpretty,_tlIstartsWithExprPrefixExpression,_tlIvarPretty) =+                  tl_ _tlOcomments _tlOforceMultiline _tlOindent _tlOppconf+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty)))+sem_VarsList_Nil :: T_VarsList+sem_VarsList_Nil =+    (\ _lhsIcomments+       _lhsIforceMultiline+       _lhsIindent+       _lhsIppconf ->+         (let _lhsOpretty :: Doc+              _lhsOstartsWithExprPrefixExpression :: Bool+              _lhsOendsWithPrefixExpression :: Bool+              _lhsOisMultiline :: Bool+              _lhsOisLast :: Bool+              _lhsOexprPretty :: Doc+              _lhsOisDefined :: Bool+              _lhsOvarPretty :: Doc+              _lhsOcopy :: VarsList+              _lhsOcomments :: ([MToken])+              _lhsOpretty =+                  ({-# LINE 559 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 8675 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOstartsWithExprPrefixExpression =+                  ({-# LINE 560 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8680 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOendsWithPrefixExpression =+                  ({-# LINE 561 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8685 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisMultiline =+                  ({-# LINE 562 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8690 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisLast =+                  ({-# LINE 563 "src/GLua/AG/PrettyPrint.ag" #-}+                   True+                   {-# LINE 8695 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOexprPretty =+                  ({-# LINE 288 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 8700 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOisDefined =+                  ({-# LINE 291 "src/GLua/AG/PrettyPrint.ag" #-}+                   False+                   {-# LINE 8705 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOvarPretty =+                  ({-# LINE 287 "src/GLua/AG/PrettyPrint.ag" #-}+                   empty+                   {-# LINE 8710 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _copy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   []+                   {-# LINE 8715 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcopy =+                  ({-# LINE 268 "src/GLua/AG/PrettyPrint.ag" #-}+                   _copy+                   {-# LINE 8720 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+              _lhsOcomments =+                  ({-# LINE 315 "src/GLua/AG/PrettyPrint.ag" #-}+                   _lhsIcomments+                   {-# LINE 8725 "src/GLua/AG/PrettyPrint.hs" #-}+                   )+          in  ( _lhsOcomments,_lhsOcopy,_lhsOendsWithPrefixExpression,_lhsOexprPretty,_lhsOisDefined,_lhsOisLast,_lhsOisMultiline,_lhsOpretty,_lhsOstartsWithExprPrefixExpression,_lhsOvarPretty)))