claqDef :: Stream s m Char => GenLanguageDef s u m
claqDef = emptyDef
                { P.commentStart   = "{-"
                , P.commentEnd     = "-}"
                , P.commentLine    = "--"
                , P.nestedComments = True
                , P.identStart     = letter <|> oneOf "_."
                , P.identLetter  = alphaNum <|> oneOf "_.'"
                , P.opStart  = P.opLetter claqDef
                , P.opLetter   = oneOf ":!#$%&*+/<=>?@\\^|-~"
                , P.reservedOpNames= ["~", "&", "^", "|"]
                , P.reservedNames  = [".inputs", ".outputs"]
                , P.caseSensitive  = True
                }
claqDef :: Stream s m Char => GenLanguageDef s u m
claqDef = emptyDef
                { P.commentStart   = "{-"
                , P.commentEnd     = "-}"
                , P.commentLine    = "--"
                , P.nestedComments = True
                , P.identStart     = letter <|> oneOf "_."
                , P.identLetter  = alphaNum <|> oneOf "_.'"
                , P.opStart  = P.opLetter claqDef
                , P.opLetter   = oneOf ":!#$%&*+/<=>?@\\^|-~"
                , P.reservedOpNames= ["~", "&", "^", "|"]
                , P.reservedNames  = [".inputs", ".outputs"]
                , P.caseSensitive  = True
                }
claqDef = emptyDef
                { P.commentStart   = "{-"
                , P.commentEnd     = "-}"
                , P.commentLine    = "--"
                , P.nestedComments = True
                , P.identStart     = letter <|> oneOf "_."
                , P.identLetter  = alphaNum <|> oneOf "_.'"
                , P.opStart  = P.opLetter claqDef
                , P.opLetter   = oneOf ":!#$%&*+/<=>?@\\^|-~"
                , P.reservedOpNames= ["~", "&", "^", "|"]
                , P.reservedNames  = [".inputs", ".outputs"]
                , P.caseSensitive  = True
                }