object TPersHolder
  P.Name = 'Haskell'
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      ID = 0
      CaseSensitive = True
      FIText = 0
      FIIntNum = 1
      FIFloatNum = 2
      FIHexNum = 3
      FISymbol = 16
      UseSymbols = True
      UseComments = True
      UseSingleLineComments = True
      UseMultiLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UseSuffixedNumbers = True
      UseMultipleNumSuffixes = False
      UseKeywords = True
      BlockDelimiters = <>
      SingleLineCommentDelimiters = <
        item
          FontID = 18
          LeftDelimiter = '--'
        end>
      MultiLineCommentDelimiters = <
        item
          FontID = 4
          LeftDelimiter = '{-'
          RightDelimiter = '-}'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 5
          LeftDelimiter = '"'
          RightDelimiter = '"'
        end>
      NumSuffixes = <
        item
          LeftDelimiter = 'X'
        end
        item
          LeftDelimiter = 'L'
        end>
      KeywordSets = <
        item
          FontID = 6
          Name = 'reserved'
          Keywords = 
            'abs,absReal,acos,acosh,all,and,any,appendFile,approxRational,asc' +
            'iiTab,asin,asinh,asTypeOf,atan,atan2,atanh,basicIORun,blockIO,br' +
            'eak,catch,catchHugsException,ceiling,chr,compare,concat,concatMa' +
            'p,const,cos,cosh,curry,cycle,data,decodeFloat,denominator,digitT' +
            'oInt,div,divMod,doubleToFloat,doubleToRatio,doubleToRational,dro' +
            'p,dropWhile,either,elem,EmptyRec,encodeFloat,enumFrom,enumFromTh' +
            'en,enumFromThenTo,enumFromTo,EQ,error,even,exp,exponent,fail,Fal' +
            'se,filter,Finished_Error,Finished_ExitWith,Finished_Return,flip,' +
            'floatDigits,floatProperFraction,floatRadix,floatRange,floatToRat' +
            'ional,floor,fmap,foldl,foldl1,foldr,foldr1,fromDouble,fromEnum,f' +
            'romEnum_0,fromInt,fromInteger,fromIntegral,fromObj,fromRational,' +
            'fst,gcd,getChar,getContents,getLine,GT,head,isAlpha,isAlphaNum,i' +
            'sAscii,isControl,isDenormalized,isDigit,isEOFError,isHexDigit,is' +
            'IEEE,isInfinite,isLower,isNaN,isNegativeZero,isOctDigit,isPrint,' +
            'isSpace,isUpper,iterate,Just,last,lcm,Left,length,lex,lexDigits,' +
            'lexLitChar,lexmatch,lines,log,logBase,lookup,loop,LT,map,mapM,ma' +
            'pM_,max,maxBound,maximum,maybe,min,minBound,minimum,mod,module,n' +
            'egate,nonnull,not,notElem,Nothing,null,numerator,numericEnumFrom' +
            ',numericEnumFromThen,numericEnumFromThenTo,numericEnumFromTo,Obj' +
            ',odd,or,ord,otherwise,pi,pred,primAcosDouble,primAcosFloat,primA' +
            'sinDouble,primAsinFloat,primAtanDouble,primAtanFloat,primbindIO,' +
            'primCatchException,primCharToInt,primCmpChar,primCmpDouble,primC' +
            'mpFloat,primCmpInt,primCmpInteger,primCompAux,primCosDouble,prim' +
            'CosFloat,primDivDouble,primDivFloat,primDivInt,primDoubleDecode,' +
            'primDoubleDigits,primDoubleEncode,primDoubleMaxExp,primDoubleMin' +
            'Exp,primDoubleRadix,primEqChar,primEqDouble,primEqFloat,primEqIn' +
            't,primEqInteger,primEvenInt,primEvenInteger,primExitWith,primExp' +
            'Double,primExpFloat,primFloatDecode,primFloatDigits,primFloatEnc' +
            'ode,primFloatMaxExp,primFloatMinExp,primFloatRadix,primIntegerTo' +
            'Double,primIntegerToFloat,primIntegerToInt,primIntToChar,primInt' +
            'ToDouble,primIntToFloat,primIntToInteger,primLogDouble,primLogFl' +
            'oat,primMaxInt,primMinInt,primMinusDouble,primMinusFloat,primMin' +
            'usInt,primMinusInteger,primModInt,primMulDouble,primMulFloat,pri' +
            'mMulInt,primMulInteger,primNegDouble,primNegFloat,primNegInt,pri' +
            'mNegInteger,primPlusDouble,primPlusFloat,primPlusInt,primPlusInt' +
            'eger,primPmFlt,primPmInt,primPmInteger,primPmNpk,primPmSub,primQ' +
            'rmInt,primQrmInteger,primQuotInt,primRationalToDouble,primRation' +
            'alToFloat,primRemInt,primretIO,primShowException,primShowsDouble' +
            ',primShowsFloat,primShowsInt,primShowsInteger,primSinDouble,prim' +
            'SinFloat,primSqrtDouble,primSqrtFloat,primTanDouble,primTanFloat' +
            ',primThrowException,print,product,properFraction,protectEsc,putC' +
            'har,putStr,putStrLn,quot,quotRem,range,rangeSize,rationalToDoubl' +
            'e,rationalToFloat,rationalToRealFloat,read,readDec,readField,rea' +
            'dFile,readFloat,readHex,readInt,readIO,readList,readLitChar,read' +
            'Ln,readOct,readParen,reads,readSigned,readsPrec,realFloatToRatio' +
            'nal,realToFrac,recip,reduce,rem,repeat,replicate,return,reverse,' +
            'Right,round,scaleFloat,scanl,scanl1,scanr,scanr1,seq,sequence,se' +
            'quence_,show,showChar,showField,showInt,showList,showLitChar,sho' +
            'wParen,shows,showSigned,showsPrec,showString,significand,signum,' +
            'signumReal,sin,sinh,snd,span,splitAt,sqrt,subtract,succ,sum,tail' +
            ',take,takeWhile,tan,tanh,toEnum,toInt,toInteger,toLower,toObj,to' +
            'Rational,toUpper,True,truncate,uncurry,undefined,unlines,unsafeC' +
            'oerce,until,unwords,unzip,unzip3,userError,where,words,writeFile' +
            ',zip,zip3,zipWith,zipWith3'
        end>
    end
    item
      Name = 'Assembler'
      ID = 1
      ParentID = 0
      CaseSensitive = True
      FIText = 7
      FIIntNum = 8
      FIFloatNum = 9
      FIHexNum = 10
      UseComments = True
      UseMultiLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UseSuffixedNumbers = True
      UseMultipleNumSuffixes = False
      UsePrefixedIdentifiers = True
      UseKeywords = True
      BlockDelimiters = <
        item
          LeftDelimiter = 'ASM'
          RightDelimiter = 'END'
        end>
      MultiLineCommentDelimiters = <
        item
          FontID = 11
          LeftDelimiter = '(*'
          RightDelimiter = '*)'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 17
          LeftDelimiter = '"'
          RightDelimiter = '"'
        end>
      NumSuffixes = <
        item
          LeftDelimiter = 'X'
        end
        item
          LeftDelimiter = 'L'
        end>
      IdentPrefixes = <
        item
          LeftDelimiter = '@'
        end>
      KeywordSets = <
        item
          FontID = 13
          Name = 'OpCodes'
          Keywords = 
            'AAA,AAD,AAM,AAS,ADC,ADD,AND,ARPL,BOUND,BSF,BSR,BSWAP,BT,BTC,BTR,' +
            'BTS,CALL,CBW,CDQ,CLC,CLD,CLI,CLTS,CMC,CMP,CMPS,CMPSB,CMPSD,CMPSW' +
            ',CMPXCHG,CWD,CWDE,DAA,DAS,DEC,DIV,ENTER,ESC,F2XM1,FABS,FADD,FADD' +
            'P,FBLD,FBSTP,FCHS,FCLEX,FCOM,FCOMP,FCOMPP,FCOS,FDECSTP,FDISI,FDI' +
            'V,FDIVP,FDIVR,FDIVRP,FENI,FFREE,FIADD,FICOM,FICOMP,FIDIV,FIDIVR,' +
            'FILD,FIMUL,FINCSTP,FINIT,FIST,FISTP,FISUB,FISUBR,FLD,FLD1,FLDCW,' +
            'FLDENV,FLDL2E,FLDL2T,FLDLG2,FLDLN2,FLDPI,FLDZ,FMUL,FMULP,FNCLEX,' +
            'FNDISI,FNENI,FNINIT,FNOP,FNSAVE,FNSTCW,FNSTENV,FNSTSW,FPATAN,FPR' +
            'EM,FPREM1,FPTAN,FRNDINT,FRSTOR,FSAVE,FSCALE,FSETPM,FSIN,FSINCOS,' +
            'FSQRT,FST,FSTCW,FSTENV,FSTP,FSTSW,FSUB,FSUBP,FSUBR,FSUBRP,FTST,F' +
            'UCOM,FUCOMP,FUCOMPP,FWAIT,FXAM,FXCH,FXTRACT,FYL2X,FYL2XP1,HLT,ID' +
            'IV,IMUL,IN,INC,INSB,INSD,INSW,INT,INTO,INVD,INVLPG,IRET,IRETD,JA' +
            ',JAE,JB,JBE,JC,JCXZ,JE,JECXZ,JG,JGE,JL,JLE,JMP,JNA,JNAE,JNB,JNBE' +
            ',JNC,JNE,JNG,JNGE,JNL,JNLE,JNO,JNP,JNS,JNZ,JO,JP,JPE,JPO,JS,JZ,L' +
            'AHF,LAR,LDS,LEA,LEAVE,LES,LFS,LGDT,LGS,LIDT,LLDT,LMSW,LOCK,LODS,' +
            'LODSB,LODSD,LODSW,LOOP,LOOPD,LOOPDE,LOOPDNE,LOOPDNZ,LOOPDZ,LOOPE' +
            ',LOOPNE,LOOPNZ,LOOPZ,LSL,LSS,LTR,MOV,MOVS,MOVSB,MOVSD,MOVSW,MOVS' +
            'X,MOVZX,MUL,NEG,NOP,NOT,OR,OUT,OUTSB,OUTSD,OUTSW,POP,POPA,POPAD,' +
            'POPF,POPFD,PUSH,PUSHA,PUSHAD,PUSHF,PUSHFD,RCL,RCR,REP,REPE,REPNE' +
            ',REPNZ,REPZ,RET,RETF,RETN,ROL,ROR,SAHF,SAL,SAR,SBB,SCAS,SCASB,SC' +
            'ASD,SCASW,SEGCS,SEGDS,SEGES,SEGFS,SEGGS,SEGSS,SETA,SETAE,SETB,SE' +
            'TBE,SETC,SETE,SETG,SETGE,SETL,SETLE,SETNA,SETNAE,SETNB,SETNBE,SE' +
            'TNC,SETNE,SETNG,SETNGE,SETNL,SETNLE,SETNO,SETNP,SETNS,SETNZ,SETO' +
            ',SETP,SETPE,SETPO,SETS,SETZ,SGDT,SHL,SHLD,SHR,SHRD,SIDT,SLDT,SMS' +
            'W,STC,STD,STI,STOS,STOSB,STOSD,STOSW,STR,SUB,TEST,VERR,VERW,WAIT' +
            ',WBINVD,XADD,XCHG,XLAT,XOR'
        end
        item
          FontID = 14
          Name = 'Operands'
          Keywords = 
            'AH,AL,AND,AX,BH,BL,BP,BX,BYTE,CH,CL,CS,CX,DH,DI,DL,DS,DWORD,DX,E' +
            'AX,EBP,EBX,ECX,EDI,EDX,EIP,ES,ESI,ESP,FS,GS,HIGH,LOW,MOD,NOT,OFF' +
            'SET,OR,PTR,QWORD,SHL,SHR,SI,SP,SS,ST,TBYTE,TYPE,WORD,XOR'
        end
        item
          FontID = 15
          Name = 'Directives'
          Keywords = 'DB,DD,DW'
        end>
    end>
  P.FontTable = <
    item
      FontID = 0
      GlobalAttrID = 'Whitespace'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 1
      GlobalAttrID = 'Integer'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 2
      GlobalAttrID = 'Float'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 3
      GlobalAttrID = 'Integer'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 4
      GlobalAttrID = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clSilver
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 5
      GlobalAttrID = 'String'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 6
      GlobalAttrID = 'Reserved words'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 7
      GlobalAttrID = 'Assembler'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 8
      GlobalAttrID = 'Assembler'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 9
      GlobalAttrID = 'Assembler'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 10
      GlobalAttrID = 'Assembler'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 11
      GlobalAttrID = 'Comment'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 17
      GlobalAttrID = 'String'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 13
      GlobalAttrID = 'Assembler'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 14
      GlobalAttrID = 'Assembler'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 15
      GlobalAttrID = 'Assembler'
      BlockID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      FontID = 16
      GlobalAttrID = 'Delimiters'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 18
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clSilver
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end>
  P.SyntaxVersion = 3
end