module Idents where

import SusanneFormat

cidASimul      = app0 "ASimul"
cidAAnter      = app0 "AAnter"
cidPositAdvAdj = app0 "PositAdvAdj"
cidPositAdVAdj = app0 "PositAdVAdj"
cidUseCl       = app3 "UseCl"
cidPredVP      = app2 "PredVP"
cidSlashVP     = app2 "SlashVP"
cidVPSlashPrep = app2 "VPSlashPrep"
cidComplPredVP = app0 "ComplPredVP"
cidAdjCN       = app2 "AdjCN"
cidUseN        = app1 "UseN"
cidDetQuant    = app2 "DetQuant"
cidDetQuantOrd = app3 "DetQuantOrd"
cidNumSg       = app0 "NumSg"
cidNumPl       = app0 "NumPl"
cidDetCN       = app2 "DetCN"
cidIndefArt    = app0 "IndefArt"
cidDefArt      = app0 "DefArt"
cidUsePN       = app1 "UsePN"
cidUseQuantPN  = app0 "UseQuantPN"
cidSymbPN      = app1 "SymbPN"
cidMkSymb      = app1 "MkSymb"
cidUsePron     = app1 "UsePron"
cidConjNP      = app0 "ConjNP"
cidBaseNP      = app0 "BaseNP"
cidConsNP      = app0 "ConsNP"
cidConjCN      = app0 "ConjCN"
cidBaseCN      = app0 "BaseCN"
cidConsCN      = app0 "ConsCN"
cidConjAdv     = app0 "ConjAdv"
cidBaseAdv     = app0 "BaseAdv"
cidConsAdv     = app0 "ConsAdv"
cidBaseS       = app0 "BaseS"
cidConsS       = app0 "ConsS"
cidConjS       = app0 "ConjS"
cidMassNP      = app1 "MassNP"
cidAdvNP       = app2 "AdvNP"
cidExtAdvNP    = app2 "ExtAdvNP"
cidTPres       = app0 "TPres"
cidTPast       = app0 "TPast"
cidTFut        = app0 "TFut"
cidTCond       = app0 "TCond"
cidTTAnt       = app2 "TTAnt"
cidPPos        = app0 "PPos"
cidPNeg        = app0 "PNeg"
cidComplSlash  = app2 "ComplSlash"
cidSlashV2a    = app1 "SlashV2a"
cidSlashV2A    = app2 "SlashV2A"
cidComplVS     = app2 "ComplVS"
cidComplVV     = app4 "ComplVV"
cidUseV        = app1 "UseV"
cidAdVVP       = app2 "AdVVP"
cidAdvVP       = app2 "AdvVP"
cidAdvVPSlash  = app2 "AdvVPSlash"
cidPrepNP      = app2 "PrepNP"
cidto_Prep     = app0 "to_Prep"
cidsuch_as_Prep= app0 "such_as_Prep"
cidPastPartAP  = app1 "PastPartAP"
cidPassVPSlash = app0 "PassVPSlash"
cidAdvS        = app2 "AdvS"
cidPositA      = app1 "PositA"
cidIDig        = app0 "IDig"
cidIIDig       = app0 "IIDig"
cidNumCard     = app1 "NumCard" 
cidNumDigits   = app1 "NumDigits"
cidNumNumeral  = app1 "NumNumeral"
cidnum         = app1 "num"
cidpot2as3     = app0 "pot2as3"
cidpot1as2     = app0 "pot1as2"
cidpot0as1     = app0 "pot0as1"
cidpot01       = app0 "pot01"
cidpot0        = app0 "pot0"
cidn2          = app0 "n2"
cidn3          = app0 "n3"
cidn4          = app0 "n4"
cidn5          = app0 "n5"
cidn6          = app0 "n6"
cidn7          = app0 "n7"
cidn8          = app0 "n8"
cidn9          = app0 "n9"
cidPossPron    = app1 "PossPron"
cidCompAP      = app1 "CompAP"
cidCompNP      = app1 "CompNP"
cidCompAdv     = app1 "CompAdv"
cidCompS       = app1 "CompS"
cidCompVP      = app1 "CompVP"
cidUseComp     = app1 "UseComp"
cidCompoundSgCN= app2 "CompoundSgCN"
cidCompoundPlCN= app2 "CompoundPlCN"
cidDashSgN     = app2 "DashSgN"
cidDashPlN     = app2 "DashPlN"
cidProgrVP     = app0 "ProgrVP"
cidGerundN     = app0 "GerundN"
cidPresPartAP  = app1 "PresPartAP"
cidGenNP       = app1 "GenNP"
cidPredetNP    = app1 "PredetNP"
cidDetNP       = app1 "DetNP"
cidAdAP        = app2 "AdAP"
cidAdvAP       = app2 "AdvAP"
cidPositAdAAdj = app1 "PositAdAAdj"
cideither7or_DConj = app0 "either7or_DConj"
cidboth7and_DConj  = app0 "both7and_DConj"
cidor_Conj     = app0 "or_Conj"
cidand_Conj    = app0 "and_Conj"
cidamp_Conj    = app0 "amp_Conj"
cidSlashV2V    = app0 "SlashV2V"
cidComplVA     = app0 "ComplVA"
cidAdNum       = app0 "AdNum"
cidOrdSuperl   = app1 "OrdSuperl"
cidno_RP       = app0 "no_RP"
cidthat_RP     = app0 "that_RP"
cidUseRCl      = app3 "UseRCl"
cidRelSlash    = app2 "RelSlash"
cidRelNP       = app2 "RelNP"
cidRelCN       = app2 "RelCN"
cidRelVP       = app2 "RelVP"
cidIdRP        = app0 "IdRP"
cidmany_Det    = app0 "many_Det"
cidImpVP       = app1 "ImpVP"
cidExistNP     = app2 "ExistNP"
cidExtAdvS     = app2 "ExtAdvS"
cidAdvCN       = app2 "AdvCN"
cidNameCN      = app2 "NameCN"
cidno_Quant    = app0 "no_Quant"
cidSubjS       = app2 "SubjS"
cidthat_Subj   = app0 "that_Subj"
cidanySg_Det   = app0 "anySg_Det"
cidanyPl_Det   = app0 "anyPl_Det"
cidhave_V2     = app0 "have_V2"
cidby_Prep     = app0 "by_Prep"
cidweekdayPunctualAdv = app1 "weekdayPunctualAdv"
cidi_Pron      = app0 "i_Pron"
cidyouSg_Pron  = app0 "youSg_Pron"
cidhe_Pron     = app0 "he_Pron"
cidshe_Pron    = app0 "she_Pron"
cidit_Pron     = app0 "it_Pron"
cidwe_Pron     = app0 "we_Pron"
cidthey_Pron   = app0 "they_Pron"
cidUseComparA  = app1 "UseComparA"

app0 f =             App f []
app1 f = \x       -> App f [x]
app2 f = \x y     -> App f [x,y]
app3 f = \x y z   -> App f [x,y,z]
app4 f = \w x y z -> App f [w,x,y,z]