content: 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]
  