:: MainGenGui.NoContext = MainGenGui.NoContext 
:: MainGenGui.DummyState = MainGenGui.DummyState 
:: <{MainGenGui.Test'}> = <{MainGenGui.Test'}> a1 a2 a3
:: MainGenGui.Test = MainGenGui.Test a1 a2 a3
:: MainGenGui.ABCD = MainGenGui.A  | MainGenGui.B  | MainGenGui.C  | MainGenGui.D 
:: <{MainGenGui.ABCD'}> = <{MainGenGui.A'}> a1 | <{MainGenGui.B'}> a1 | <{MainGenGui.C'}> a1 a2 | <{MainGenGui.D'}> a1
<{MainGenGui.b's1}> =: Control.Exception.Base.recSelError "b\'s"
<{MainGenGui.b's}> ds_s1ieM = select ds_s1ieM (_ -> <{MainGenGui.b's1}>) (<{MainGenGui.B'}> ds1_s1ieP -> ds1_s1ieP)
<{MainGenGui.c's1}> =: Control.Exception.Base.recSelError "c\'s"
<{MainGenGui.c's}> ds_s1ieR = select ds_s1ieR (_ -> <{MainGenGui.c's1}>) (<{MainGenGui.C'}> ds1_s1iHe ds2_s1ieV -> ds2_s1ieV)
<{MainGenGui.c'i1}> =: Control.Exception.Base.recSelError "c\'i"
<{MainGenGui.c'i}> ds_s1ieX = select ds_s1ieX (_ -> <{MainGenGui.c'i1}>) (<{MainGenGui.C'}> ds1_s1if1 ds2_s1iHm -> ds1_s1if1)
MainGenGui.abcd ds_s1if3 = select ds_s1if3 (MainGenGui.Test ds1_s1iHs ds2_s1iHt ds3_s1if8 -> ds3_s1if8)
MainGenGui.description ds_s1ifa = select ds_s1ifa (MainGenGui.Test ds1_s1iHz ds2_s1iff ds3_s1iHA -> ds2_s1iff)
MainGenGui.label ds_s1ifh = select ds_s1ifh (MainGenGui.Test ds1_s1ifm ds2_s1iHG ds3_s1iHH -> ds1_s1ifm)
<{MainGenGui.abcd'}> ds_s1ifo = select ds_s1ifo (<{MainGenGui.Test'}> ds1_s1iHN ds2_s1iHO ds3_s1ift -> ds3_s1ift)
<{MainGenGui.description'}> ds_s1ifv = select ds_s1ifv (<{MainGenGui.Test'}> ds1_s1iHU ds2_s1ifA ds3_s1iHV -> ds2_s1ifA)
<{MainGenGui.label'}> ds_s1ifC = select ds_s1ifC (<{MainGenGui.Test'}> ds1_s1ifH ds2_s1iI1 ds3_s1iI2 -> ds1_s1ifH)
<{MainGenGui.$fSelectorTest'4}> =: GHC.CString.unpackCString# "abcd\'"
<{MainGenGui.$fSelectorTest'1_$cselName}> ds_s1ifJ = <{MainGenGui.$fSelectorTest'4}>
<{MainGenGui.$fSelectorTest'1}> =: <{MainGenGui.$fSelectorTest'1_$cselName}>
<{MainGenGui.$fSelectorTest'3}> =: GHC.CString.unpackCString# "description\'"
<{MainGenGui.$fSelectorTest'0_$cselName}> ds_s1ifL = <{MainGenGui.$fSelectorTest'3}>
<{MainGenGui.$fSelectorTest'0}> =: <{MainGenGui.$fSelectorTest'0_$cselName}>
<{MainGenGui.$fSelectorTest'2}> =: GHC.CString.unpackCString# "label\'"
<{MainGenGui.$fSelectorTest'_$cselName}> ds_s1ifN = <{MainGenGui.$fSelectorTest'2}>
<{MainGenGui.$fSelectorTest'}> =: <{MainGenGui.$fSelectorTest'_$cselName}>
<{MainGenGui.$fConstructorTest'_$cconIsRecord}> ds_s1ifP = true
<{MainGenGui.$fConstructorTest'1}> =: GHC.CString.unpackCString# "Test\'"
<{MainGenGui.$fConstructorTest'_$cconName}> ds_s1ifR = <{MainGenGui.$fConstructorTest'1}>
<{MainGenGui.$fConstructorTest'_$cconFixity}> ds_s1ifT = GHC.Generics.Prefix
<{MainGenGui.$fConstructorTest'}> =: <{GHC.Generics.D:Constructor}> <{MainGenGui.$fConstructorTest'_$cconName}> <{MainGenGui.$fConstructorTest'_$cconFixity}> <{MainGenGui.$fConstructorTest'_$cconIsRecord}>
MainGenGui.$fDatatypeABCD2 =: GHC.CString.unpackCString# "MainGenGui"
<{MainGenGui.$fDatatypeTest'_$cmoduleName}> ds_s1ifV = MainGenGui.$fDatatypeABCD2
<{MainGenGui.$fDatatypeTest'1}> =: <{MainGenGui.$fConstructorTest'1}>
<{MainGenGui.$fDatatypeTest'_$cdatatypeName}> ds_s1ifX = <{MainGenGui.$fConstructorTest'1}>
<{MainGenGui.$fDatatypeTest'}> =: <{GHC.Generics.D:Datatype}> <{MainGenGui.$fDatatypeTest'_$cdatatypeName}> <{MainGenGui.$fDatatypeTest'_$cmoduleName}>
MainGenGui.$fSelectorTest4 =: GHC.CString.unpackCString# "abcd"
MainGenGui.$fSelectorTest1_$cselName ds_s1ifZ = MainGenGui.$fSelectorTest4
MainGenGui.$fSelectorTest1 =: MainGenGui.$fSelectorTest1_$cselName
MainGenGui.$fSelectorTest3 =: GHC.CString.unpackCString# "description"
MainGenGui.$fSelectorTest0_$cselName ds_s1ig1 = MainGenGui.$fSelectorTest3
MainGenGui.$fSelectorTest0 =: MainGenGui.$fSelectorTest0_$cselName
MainGenGui.$fSelectorTest2 =: GHC.CString.unpackCString# "label"
MainGenGui.$fSelectorTest_$cselName ds_s1ig3 = MainGenGui.$fSelectorTest2
MainGenGui.$fSelectorTest =: MainGenGui.$fSelectorTest_$cselName
MainGenGui.$fConstructorTest_$cconIsRecord ds_s1ig5 = true
MainGenGui.$fConstructorTest1 =: GHC.CString.unpackCString# "Test"
MainGenGui.$fConstructorTest_$cconName ds_s1ig7 = MainGenGui.$fConstructorTest1
MainGenGui.$fConstructorTest_$cconFixity ds_s1ig9 = GHC.Generics.Prefix
MainGenGui.$fConstructorTest =: <{GHC.Generics.D:Constructor}> MainGenGui.$fConstructorTest_$cconName MainGenGui.$fConstructorTest_$cconFixity MainGenGui.$fConstructorTest_$cconIsRecord
MainGenGui.$fDatatypeTest1 =: MainGenGui.$fDatatypeABCD2
MainGenGui.$fDatatypeTest_$cmoduleName ds_s1igb = MainGenGui.$fDatatypeABCD2
MainGenGui.$fDatatypeTest2 =: MainGenGui.$fConstructorTest1
MainGenGui.$fDatatypeTest_$cdatatypeName ds_s1igd = MainGenGui.$fConstructorTest1
MainGenGui.$fDatatypeTest =: <{GHC.Generics.D:Datatype}> MainGenGui.$fDatatypeTest_$cdatatypeName MainGenGui.$fDatatypeTest_$cmoduleName
MainGenGui.$fConstructorABCD10 =: GHC.Types.C# 'D'
MainGenGui.$fConstructorABCD9 =: <{GHC.Types.:}> MainGenGui.$fConstructorABCD10 <{GHC.Types.[]}>
MainGenGui.$fConstructorABCD2_$cconName ds_s1igf = MainGenGui.$fConstructorABCD9
MainGenGui.$fConstructorABCD2_$cconIsRecord ds_s1igh = false
MainGenGui.$fConstructorABCD2_$cconFixity ds_s1igj = GHC.Generics.Prefix
MainGenGui.$fConstructorABCD2 =: <{GHC.Generics.D:Constructor}> MainGenGui.$fConstructorABCD2_$cconName MainGenGui.$fConstructorABCD2_$cconFixity MainGenGui.$fConstructorABCD2_$cconIsRecord
MainGenGui.$fConstructorABCD8 =: GHC.Types.C# 'C'
MainGenGui.$fConstructorABCD7 =: <{GHC.Types.:}> MainGenGui.$fConstructorABCD8 <{GHC.Types.[]}>
MainGenGui.$fConstructorABCD1_$cconName ds_s1igl = MainGenGui.$fConstructorABCD7
MainGenGui.$fConstructorABCD1_$cconIsRecord ds_s1ign = false
MainGenGui.$fConstructorABCD1_$cconFixity ds_s1igp = GHC.Generics.Prefix
MainGenGui.$fConstructorABCD1 =: <{GHC.Generics.D:Constructor}> MainGenGui.$fConstructorABCD1_$cconName MainGenGui.$fConstructorABCD1_$cconFixity MainGenGui.$fConstructorABCD1_$cconIsRecord
MainGenGui.$fConstructorABCD6 =: GHC.Types.C# 'B'
MainGenGui.$fConstructorABCD5 =: <{GHC.Types.:}> MainGenGui.$fConstructorABCD6 <{GHC.Types.[]}>
MainGenGui.$fConstructorABCD0_$cconName ds_s1igr = MainGenGui.$fConstructorABCD5
MainGenGui.$fConstructorABCD0_$cconIsRecord ds_s1igt = false
MainGenGui.$fConstructorABCD0_$cconFixity ds_s1igv = GHC.Generics.Prefix
MainGenGui.$fConstructorABCD0 =: <{GHC.Generics.D:Constructor}> MainGenGui.$fConstructorABCD0_$cconName MainGenGui.$fConstructorABCD0_$cconFixity MainGenGui.$fConstructorABCD0_$cconIsRecord
MainGenGui.$fConstructorABCD4 =: GHC.Types.C# 'A'
MainGenGui.$fConstructorABCD3 =: <{GHC.Types.:}> MainGenGui.$fConstructorABCD4 <{GHC.Types.[]}>
MainGenGui.$fConstructorABCD_$cconName ds_s1igx = MainGenGui.$fConstructorABCD3
MainGenGui.$fConstructorABCD_$cconIsRecord ds_s1igz = false
MainGenGui.$fConstructorABCD_$cconFixity ds_s1igB = GHC.Generics.Prefix
MainGenGui.$fConstructorABCD =: <{GHC.Generics.D:Constructor}> MainGenGui.$fConstructorABCD_$cconName MainGenGui.$fConstructorABCD_$cconFixity MainGenGui.$fConstructorABCD_$cconIsRecord
MainGenGui.$fDatatypeABCD1 =: MainGenGui.$fDatatypeABCD2
MainGenGui.$fDatatypeABCD_$cmoduleName ds_s1igD = MainGenGui.$fDatatypeABCD2
MainGenGui.$fDatatypeABCD3 =: GHC.CString.unpackCString# "ABCD"
MainGenGui.$fDatatypeABCD_$cdatatypeName ds_s1igF = MainGenGui.$fDatatypeABCD3
MainGenGui.$fDatatypeABCD =: <{GHC.Generics.D:Datatype}> MainGenGui.$fDatatypeABCD_$cdatatypeName MainGenGui.$fDatatypeABCD_$cmoduleName
<{MainGenGui.$fSelectorABCD'5}> =: GHC.CString.unpackCString# "c\'s"
<{MainGenGui.$fSelectorABCD'2_$cselName}> ds_s1igH = <{MainGenGui.$fSelectorABCD'5}>
<{MainGenGui.$fSelectorABCD'2}> =: <{MainGenGui.$fSelectorABCD'2_$cselName}>
<{MainGenGui.$fSelectorABCD'4}> =: GHC.CString.unpackCString# "c\'i"
<{MainGenGui.$fSelectorABCD'1_$cselName}> ds_s1igJ = <{MainGenGui.$fSelectorABCD'4}>
<{MainGenGui.$fSelectorABCD'1}> =: <{MainGenGui.$fSelectorABCD'1_$cselName}>
<{MainGenGui.$fSelectorABCD'3}> =: GHC.CString.unpackCString# "b\'s"
<{MainGenGui.$fSelectorABCD'0_$cselName}> ds_s1igL = <{MainGenGui.$fSelectorABCD'3}>
<{MainGenGui.$fSelectorABCD'0}> =: <{MainGenGui.$fSelectorABCD'0_$cselName}>
<{MainGenGui.$fConstructorABCD'6}> =: GHC.CString.unpackCString# "D\'"
<{MainGenGui.$fConstructorABCD'2_$cconName}> ds_s1igN = <{MainGenGui.$fConstructorABCD'6}>
<{MainGenGui.$fConstructorABCD'2_$cconIsRecord}> ds_s1igP = false
<{MainGenGui.$fConstructorABCD'2_$cconFixity}> ds_s1igR = GHC.Generics.Prefix
<{MainGenGui.$fConstructorABCD'2}> =: <{GHC.Generics.D:Constructor}> <{MainGenGui.$fConstructorABCD'2_$cconName}> <{MainGenGui.$fConstructorABCD'2_$cconFixity}> <{MainGenGui.$fConstructorABCD'2_$cconIsRecord}>
<{MainGenGui.$fConstructorABCD'1_$cconIsRecord}> ds_s1igT = true
<{MainGenGui.$fConstructorABCD'5}> =: GHC.CString.unpackCString# "C\'"
<{MainGenGui.$fConstructorABCD'1_$cconName}> ds_s1igV = <{MainGenGui.$fConstructorABCD'5}>
<{MainGenGui.$fConstructorABCD'1_$cconFixity}> ds_s1igX = GHC.Generics.Prefix
<{MainGenGui.$fConstructorABCD'1}> =: <{GHC.Generics.D:Constructor}> <{MainGenGui.$fConstructorABCD'1_$cconName}> <{MainGenGui.$fConstructorABCD'1_$cconFixity}> <{MainGenGui.$fConstructorABCD'1_$cconIsRecord}>
<{MainGenGui.$fConstructorABCD'0_$cconIsRecord}> ds_s1igZ = true
<{MainGenGui.$fConstructorABCD'4}> =: GHC.CString.unpackCString# "B\'"
<{MainGenGui.$fConstructorABCD'0_$cconName}> ds_s1ih1 = <{MainGenGui.$fConstructorABCD'4}>
<{MainGenGui.$fConstructorABCD'0_$cconFixity}> ds_s1ih3 = GHC.Generics.Prefix
<{MainGenGui.$fConstructorABCD'0}> =: <{GHC.Generics.D:Constructor}> <{MainGenGui.$fConstructorABCD'0_$cconName}> <{MainGenGui.$fConstructorABCD'0_$cconFixity}> <{MainGenGui.$fConstructorABCD'0_$cconIsRecord}>
<{MainGenGui.$fConstructorABCD'3}> =: GHC.CString.unpackCString# "A\'"
<{MainGenGui.$fConstructorABCD'_$cconName}> ds_s1ih5 = <{MainGenGui.$fConstructorABCD'3}>
<{MainGenGui.$fConstructorABCD'_$cconIsRecord}> ds_s1ih7 = false
<{MainGenGui.$fConstructorABCD'_$cconFixity}> ds_s1ih9 = GHC.Generics.Prefix
<{MainGenGui.$fConstructorABCD'}> =: <{GHC.Generics.D:Constructor}> <{MainGenGui.$fConstructorABCD'_$cconName}> <{MainGenGui.$fConstructorABCD'_$cconFixity}> <{MainGenGui.$fConstructorABCD'_$cconIsRecord}>
<{MainGenGui.$fDatatypeABCD'1}> =: MainGenGui.$fDatatypeABCD2
<{MainGenGui.$fDatatypeABCD'_$cmoduleName}> ds_s1ihb = MainGenGui.$fDatatypeABCD2
<{MainGenGui.$fDatatypeABCD'2}> =: GHC.CString.unpackCString# "ABCD\'"
<{MainGenGui.$fDatatypeABCD'_$cdatatypeName}> ds_s1ihd = <{MainGenGui.$fDatatypeABCD'2}>
<{MainGenGui.$fDatatypeABCD'}> =: <{GHC.Generics.D:Datatype}> <{MainGenGui.$fDatatypeABCD'_$cdatatypeName}> <{MainGenGui.$fDatatypeABCD'_$cmoduleName}>
<{MainGenGui.$fGenericTest'_$cto}> ds_s1ihf = select ds_s1ihf (<{GHC.Generics.:*:}> ds1_s1ihn ds2_s1ihj -> select ds2_s1ihj (<{GHC.Generics.:*:}> ds3_s1iho ds4_s1ihp -> <{MainGenGui.Test'}> ds1_s1ihn ds3_s1iho ds4_s1ihp))
<{MainGenGui.$fGenericTest'_$cfrom}> ds_s1ihr = select ds_s1ihr (<{MainGenGui.Test'}> g1_s1ihw g2_s1ihx g3_s1ihy -> <{GHC.Generics.:*:}> g1_s1ihw (<{GHC.Generics.:*:}> g2_s1ihx g3_s1ihy))
<{MainGenGui.$fGenericTest'}> =: <{GHC.Generics.D:Generic}> <{MainGenGui.$fGenericTest'_$cfrom}> <{MainGenGui.$fGenericTest'_$cto}>
MainGenGui.$fGenericTest_$cto ds_s1ihB = select ds_s1ihB (<{GHC.Generics.:*:}> ds1_s1ihJ ds2_s1ihF -> select ds2_s1ihF (<{GHC.Generics.:*:}> ds3_s1ihK ds4_s1ihL -> MainGenGui.Test ds1_s1ihJ ds3_s1ihK ds4_s1ihL))
MainGenGui.$fGenericTest_$cfrom ds_s1ihN = select ds_s1ihN (MainGenGui.Test g1_s1ihS g2_s1ihT g3_s1ihU -> <{GHC.Generics.:*:}> g1_s1ihS (<{GHC.Generics.:*:}> g2_s1ihT g3_s1ihU))
MainGenGui.$fGenericTest =: <{GHC.Generics.D:Generic}> MainGenGui.$fGenericTest_$cfrom MainGenGui.$fGenericTest_$cto
MainGenGui.$fGenericABCD_$cto ds_s1ihX = select ds_s1ihX (GHC.Generics.L1 ds1_s1ii0 -> select ds1_s1ii0 (GHC.Generics.L1 ds2_s1ii3 -> let !tpl_s1iJZ = ds2_s1ii3 in MainGenGui.A) (GHC.Generics.R1 ds2_s1ii6 -> let !tpl_s1iK2 = ds2_s1ii6 in MainGenGui.B)) (GHC.Generics.R1 ds1_s1ii9 -> select ds1_s1ii9 (GHC.Generics.L1 ds2_s1iic -> let !tpl_s1iK3 = ds2_s1iic in MainGenGui.C) (GHC.Generics.R1 ds2_s1iif -> let !tpl_s1iK5 = ds2_s1iif in MainGenGui.D))
MainGenGui.$fGenericABCD8 =: GHC.Generics.L1 GHC.Generics.U1
MainGenGui.$fGenericABCD7 =: GHC.Generics.L1 MainGenGui.$fGenericABCD8
MainGenGui.$fGenericABCD6 =: GHC.Generics.R1 GHC.Generics.U1
MainGenGui.$fGenericABCD5 =: GHC.Generics.L1 MainGenGui.$fGenericABCD6
MainGenGui.$fGenericABCD4 =: GHC.Generics.L1 GHC.Generics.U1
MainGenGui.$fGenericABCD3 =: GHC.Generics.R1 MainGenGui.$fGenericABCD4
MainGenGui.$fGenericABCD2 =: GHC.Generics.R1 GHC.Generics.U1
MainGenGui.$fGenericABCD1 =: GHC.Generics.R1 MainGenGui.$fGenericABCD2
MainGenGui.$fGenericABCD_$cfrom ds_s1iii = select ds_s1iii (MainGenGui.A  -> MainGenGui.$fGenericABCD7) (MainGenGui.B  -> MainGenGui.$fGenericABCD5) (MainGenGui.C  -> MainGenGui.$fGenericABCD3) (MainGenGui.D  -> MainGenGui.$fGenericABCD1)
MainGenGui.$fGenericABCD =: <{GHC.Generics.D:Generic}> MainGenGui.$fGenericABCD_$cfrom MainGenGui.$fGenericABCD_$cto
MainGenGui.$fToInputsABCD14 w2_s1iin w3_s1iio w4_s1iip = Gui.Generic.Classes.$w$cgToInput1 Gui.Generic.Classes.$fGToInputsU2 w2_s1iin w3_s1iio w4_s1iip
MainGenGui.$fToInputsABCD10 w2_s1iit w3_s1iiu w4_s1iiv = Gui.Generic.Classes.$w$cgToInput1 Gui.Generic.Classes.$fGToInputsU2 w2_s1iit w3_s1iiu w4_s1iiv
MainGenGui.$fToInputsABCD9 =: Gui.Generic.Classes.$fGToInputAltsM10 MainGenGui.$fToInputsABCD10 MainGenGui.$fConstructorABCD1
MainGenGui.$fToInputsABCD8 w2_s1iiz w3_s1iiA w4_s1iiB = Gui.Generic.Classes.$w$cgToInput1 Gui.Generic.Classes.$fGToInputsU2 w2_s1iiz w3_s1iiA w4_s1iiB
MainGenGui.$fToInputsABCD7 =: Gui.Generic.Classes.$fGToInputAltsM10 MainGenGui.$fToInputsABCD8 MainGenGui.$fConstructorABCD2
MainGenGui.$fToInputsABCD16 w2_s1iiF w3_s1iiG w4_s1iiH = Gui.Generic.Classes.$w$cgToInput1 Gui.Generic.Classes.$fGToInputsU2 w2_s1iiF w3_s1iiG w4_s1iiH
MainGenGui.$fToInputsABCD13 =: Gui.Generic.Classes.$fGToInputAltsM10 MainGenGui.$fToInputsABCD14 MainGenGui.$fConstructorABCD0
MainGenGui.$fToInputsABCD15 =: Gui.Generic.Classes.$fGToInputAltsM10 MainGenGui.$fToInputsABCD16 MainGenGui.$fConstructorABCD
MainGenGui.$fToInputsABCD19 eta_B1_B1 = <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt eta_B1_B1
MainGenGui.$fToInputsABCD18 eta_B1_B1 = <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt eta_B1_B1
MainGenGui.$fToInputsABCD17 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt MainGenGui.$fToInputsABCD15 MainGenGui.$fToInputsABCD13 eta_B1_B1
MainGenGui.$fToInputsABCD12 =: <{Gui.Generic.Classes.$fGToInputAlts:+:}> MainGenGui.$fToInputsABCD17 Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt MainGenGui.$fToInputsABCD15 MainGenGui.$fToInputsABCD13
MainGenGui.$fToInputsABCD11 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt MainGenGui.$fToInputsABCD9 MainGenGui.$fToInputsABCD7 eta_B1_B1
MainGenGui.$fToInputsABCD6 =: <{Gui.Generic.Classes.$fGToInputAlts:+:}> MainGenGui.$fToInputsABCD11 Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt MainGenGui.$fToInputsABCD9 MainGenGui.$fToInputsABCD7
MainGenGui.$fToInputsABCD5 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> MainGenGui.$fToInputsABCD19 MainGenGui.$fToInputsABCD18 MainGenGui.$fToInputsABCD12 MainGenGui.$fToInputsABCD6 eta_B1_B1
MainGenGui.$fToInputsABCD4 ds1_s1iiJ = select ds1_s1iiJ (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1iiM -> Data.Maybe.Just (MainGenGui.$fGenericABCD_$cfrom a4_s1iiM))
MainGenGui.$fToInputsABCD3 =: FRP.Fursuit.Signal.Pure MainGenGui.$fToInputsABCD4
MainGenGui.$fToInputsABCD2 ds1_s1iiP = select ds1_s1iiP (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1iiS -> Data.Maybe.Just (MainGenGui.$fGenericABCD_$cto a4_s1iiS))
MainGenGui.$fToInputsABCD1 =: FRP.Fursuit.Signal.Pure MainGenGui.$fToInputsABCD2
MainGenGui.$fToInputsABCD_$ctoInput $dMonadIO_s1iiX eta_s1iiY = let $dMonad_s1ij3 = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1iiX in MainGenGui.$fToInputsABCD_$ctoInput$30 (Gui.Generic.Classes.$fGToInputsM11_$cgToInput MainGenGui.$fToInputsABCD5 $dMonadIO_s1iiX Data.Maybe.Nothing (FRP.Fursuit.Signal.App MainGenGui.$fToInputsABCD3 eta_s1iiY)) (MainGenGui.$fToInputsABCD_$ctoInput$29 (GHC.Base.return $dMonad_s1ij3)) (<{GHC.Base.>>=}> $dMonad_s1ij3)
MainGenGui.$fToInputsABCD_$ctoInput$29 lvl45_s1ij5 ds_s1ij8 = lvl45_s1ij5 (<{GHC.Tuple.(,)}> (MainGenGui.$fToInputsABCD_$ctoInput$3 ds_s1ij8) (MainGenGui.$fToInputsABCD_$ctoInput$2 ds_s1ij8))
MainGenGui.$fToInputsABCD_$ctoInput$30 a4_s1ij1 lvl46_s1ijs lvl47_s1iju eta1_s1ijw = lvl47_s1iju (a4_s1ij1 eta1_s1ijw) lvl46_s1ijs
MainGenGui.$fToInputsABCD_$ctoInput$2 ds_s1ij8 = select ds_s1ij8 (<{GHC.Tuple.(,)}> a5_s1iKJ <{s'_s1ijn}> -> <{s'_s1ijn}>)
MainGenGui.$fToInputsABCD_$ctoInput$3 ds_s1ij8 = select ds_s1ij8 (<{GHC.Tuple.(,)}> a5_s1ijc <{s'_s1iKH}> -> select a5_s1ijc (Gui.Generic.Types.Input ma_s1ijg e_s1iji -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App MainGenGui.$fToInputsABCD1 ma_s1ijg) e_s1iji))
MainGenGui.$fToInputsABCD =: MainGenGui.$fToInputsABCD_$ctoInput
<{MainGenGui.$fToInputsABCD'15}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput eta_B3_B3 eta_B2_B2 eta_B1_B1
MainGenGui.$fToInputsTest11 w2_s1ijD w3_s1ijF w4_s1ijE = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'15}> MainGenGui.$fSelectorTest_$cselName w2_s1ijD w4_s1ijE
MainGenGui.$fToInputsTest10 w2_s1ijJ w3_s1ijL w4_s1ijK = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'15}> MainGenGui.$fSelectorTest0_$cselName w2_s1ijJ w4_s1ijK
MainGenGui.$fToInputsTest9 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput MainGenGui.$fToInputsABCD_$ctoInput eta_B3_B3 eta_B2_B2 eta_B1_B1
MainGenGui.$fToInputsTest8 w2_s1ijP w3_s1ijR w4_s1ijQ = Gui.Generic.Classes.$w$cgToInput MainGenGui.$fToInputsTest9 MainGenGui.$fSelectorTest1_$cselName w2_s1ijP w4_s1ijQ
MainGenGui.$fToInputsTest7 eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> MainGenGui.$fToInputsTest10 MainGenGui.$fToInputsTest8 eta_B3_B3 eta_B2_B2 eta_B1_B1
MainGenGui.$fToInputsTest6 eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> MainGenGui.$fToInputsTest11 MainGenGui.$fToInputsTest7 eta_B3_B3 eta_B2_B2 eta_B1_B1
MainGenGui.$fToInputsTest5 w2_s1ijV w3_s1ijW w4_s1ijX = Gui.Generic.Classes.$w$cgToInput1 MainGenGui.$fToInputsTest6 w2_s1ijV w3_s1ijW w4_s1ijX
MainGenGui.$fToInputsTest4 ds1_s1ijZ = select ds1_s1ijZ (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1ik2 -> Data.Maybe.Just (MainGenGui.$fGenericTest_$cfrom a4_s1ik2))
MainGenGui.$fToInputsTest3 =: FRP.Fursuit.Signal.Pure MainGenGui.$fToInputsTest4
MainGenGui.$fToInputsTest2 ds1_s1ik5 = select ds1_s1ik5 (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1ik8 -> Data.Maybe.Just (MainGenGui.$fGenericTest_$cto a4_s1ik8))
MainGenGui.$fToInputsTest1 =: FRP.Fursuit.Signal.Pure MainGenGui.$fToInputsTest2
MainGenGui.$fToInputsTest_$ctoInput $dMonadIO_s1ikd eta_s1ike = let $dMonad_s1ikj = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1ikd in MainGenGui.$fToInputsTest_$ctoInput$32 (Gui.Generic.Classes.$fGToInputsM11_$cgToInput MainGenGui.$fToInputsTest5 $dMonadIO_s1ikd Data.Maybe.Nothing (FRP.Fursuit.Signal.App MainGenGui.$fToInputsTest3 eta_s1ike)) (MainGenGui.$fToInputsTest_$ctoInput$31 (GHC.Base.return $dMonad_s1ikj)) (<{GHC.Base.>>=}> $dMonad_s1ikj)
MainGenGui.$fToInputsTest_$ctoInput$31 lvl45_s1ikl ds_s1iko = lvl45_s1ikl (<{GHC.Tuple.(,)}> (MainGenGui.$fToInputsTest_$ctoInput$5 ds_s1iko) (MainGenGui.$fToInputsTest_$ctoInput$4 ds_s1iko))
MainGenGui.$fToInputsTest_$ctoInput$32 a4_s1ikh lvl46_s1ikI lvl47_s1ikK eta1_s1ikM = lvl47_s1ikK (a4_s1ikh eta1_s1ikM) lvl46_s1ikI
MainGenGui.$fToInputsTest_$ctoInput$4 ds_s1iko = select ds_s1iko (<{GHC.Tuple.(,)}> a5_s1iL9 <{s'_s1ikD}> -> <{s'_s1ikD}>)
MainGenGui.$fToInputsTest_$ctoInput$5 ds_s1iko = select ds_s1iko (<{GHC.Tuple.(,)}> a5_s1iks <{s'_s1iL7}> -> select a5_s1iks (Gui.Generic.Types.Input ma_s1ikw e_s1iky -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App MainGenGui.$fToInputsTest1 ma_s1ikw) e_s1iky))
MainGenGui.$fToInputsTest =: MainGenGui.$fToInputsTest_$ctoInput
<{MainGenGui.$fEqABCD_$c==}> a4_s1ikS b_s1ikU = select a4_s1ikS (MainGenGui.A  -> select b_s1ikU (MainGenGui.A  -> true) (MainGenGui.B  -> false) (MainGenGui.C  -> false) (MainGenGui.D  -> false)) (MainGenGui.B  -> select b_s1ikU (_ -> false) (MainGenGui.B  -> true)) (MainGenGui.C  -> select b_s1ikU (_ -> false) (MainGenGui.C  -> true)) (MainGenGui.D  -> select b_s1ikU (_ -> false) (MainGenGui.D  -> true))
<{MainGenGui.$fEqABCD_$c/=}> a4_s1il1 b_s1il3 = select a4_s1il1 (MainGenGui.A  -> select b_s1il3 (MainGenGui.A  -> false) (MainGenGui.B  -> true) (MainGenGui.C  -> true) (MainGenGui.D  -> true)) (MainGenGui.B  -> select b_s1il3 (_ -> true) (MainGenGui.B  -> false)) (MainGenGui.C  -> select b_s1il3 (_ -> true) (MainGenGui.C  -> false)) (MainGenGui.D  -> select b_s1il3 (_ -> true) (MainGenGui.D  -> false))
MainGenGui.$fEqABCD =: <{GHC.Classes.D:Eq}> <{MainGenGui.$fEqABCD_$c==}> <{MainGenGui.$fEqABCD_$c/=}>
MainGenGui.$fShowABCD9 =: MainGenGui.$fConstructorABCD4
MainGenGui.$fShowABCD8 =: MainGenGui.$fConstructorABCD6
MainGenGui.$fShowABCD7 =: MainGenGui.$fConstructorABCD8
MainGenGui.$fShowABCD6 =: MainGenGui.$fConstructorABCD10
MainGenGui.$fShowABCD_$cshowsPrec ds_s1ile ds1_s1ilb eta_s1ild = select ds1_s1ilb (MainGenGui.A  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD4 eta_s1ild) (MainGenGui.B  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD6 eta_s1ild) (MainGenGui.C  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD8 eta_s1ild) (MainGenGui.D  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD10 eta_s1ild)
MainGenGui.$fShowABCD1 ds_s1ilh eta_s1ilj = select ds_s1ilh (MainGenGui.A  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD4 eta_s1ilj) (MainGenGui.B  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD6 eta_s1ilj) (MainGenGui.C  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD8 eta_s1ilj) (MainGenGui.D  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD10 eta_s1ilj)
MainGenGui.$fShowABCD_$cshowList eta_B2_B2 eta_B1_B1 = GHC.Show.showList__ MainGenGui.$fShowABCD1 eta_B2_B2 eta_B1_B1
MainGenGui.$fShowABCD5 =: <{GHC.Types.:}> MainGenGui.$fConstructorABCD4 <{GHC.Types.[]}>
MainGenGui.$fShowABCD4 =: <{GHC.Types.:}> MainGenGui.$fConstructorABCD6 <{GHC.Types.[]}>
MainGenGui.$fShowABCD3 =: <{GHC.Types.:}> MainGenGui.$fConstructorABCD8 <{GHC.Types.[]}>
MainGenGui.$fShowABCD2 =: <{GHC.Types.:}> MainGenGui.$fConstructorABCD10 <{GHC.Types.[]}>
MainGenGui.$fShowABCD_$cshow x6_s1ill = select x6_s1ill (MainGenGui.A  -> MainGenGui.$fShowABCD5) (MainGenGui.B  -> MainGenGui.$fShowABCD4) (MainGenGui.C  -> MainGenGui.$fShowABCD3) (MainGenGui.D  -> MainGenGui.$fShowABCD2)
MainGenGui.$fShowABCD =: <{GHC.Show.D:Show}> MainGenGui.$fShowABCD_$cshowsPrec MainGenGui.$fShowABCD_$cshow MainGenGui.$fShowABCD_$cshowList
<{MainGenGui.$fGenericABCD'_$cto}> ds_s1ilo = select ds_s1ilo (GHC.Generics.L1 ds1_s1ilr -> select ds1_s1ilr (GHC.Generics.L1 ds2_s1ilu -> <{MainGenGui.A'}> ds2_s1ilu) (GHC.Generics.R1 ds2_s1ilw -> <{MainGenGui.B'}> ds2_s1ilw)) (GHC.Generics.R1 ds1_s1ily -> select ds1_s1ily (GHC.Generics.L1 ds2_s1ilB -> select ds2_s1ilB (<{GHC.Generics.:*:}> ds3_s1ilF ds4_s1ilG -> <{MainGenGui.C'}> ds3_s1ilF ds4_s1ilG)) (GHC.Generics.R1 ds2_s1ilI -> <{MainGenGui.D'}> ds2_s1ilI))
<{MainGenGui.$fGenericABCD'_$cfrom}> ds_s1ilK = select ds_s1ilK (<{MainGenGui.A'}> g1_s1ilN -> GHC.Generics.L1 (GHC.Generics.L1 g1_s1ilN)) (<{MainGenGui.B'}> g1_s1ilQ -> GHC.Generics.L1 (GHC.Generics.R1 g1_s1ilQ)) (<{MainGenGui.C'}> g1_s1ilU g2_s1ilV -> GHC.Generics.R1 (GHC.Generics.L1 (<{GHC.Generics.:*:}> g1_s1ilU g2_s1ilV))) (<{MainGenGui.D'}> g1_s1im0 -> GHC.Generics.R1 (GHC.Generics.R1 g1_s1im0))
<{MainGenGui.$fGenericABCD'}> =: <{GHC.Generics.D:Generic}> <{MainGenGui.$fGenericABCD'_$cfrom}> <{MainGenGui.$fGenericABCD'_$cto}>
<{MainGenGui.$fToInputsABCD'9}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput eta_B3_B3 eta_B2_B2 eta_B1_B1
<{MainGenGui.$fToInputsABCD'17}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput eta_B3_B3 eta_B2_B2 eta_B1_B1
<{MainGenGui.$fToInputsABCD'16}> w2_s1im5 w3_s1im7 w4_s1im6 = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'17}> <{MainGenGui.$fSelectorABCD'1_$cselName}> w2_s1im5 w4_s1im6
<{MainGenGui.$fToInputsABCD'8}> w2_s1imb w3_s1imd w4_s1imc = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'9}> GHC.Generics.$fSelectorNoSelector_$cselName w2_s1imb w4_s1imc
<{MainGenGui.$fToInputsABCD'10}> w2_s1imh w3_s1imi w4_s1imj = Gui.Generic.Classes.$w$cgToInput1 <{MainGenGui.$fToInputsABCD'8}> w2_s1imh w3_s1imi w4_s1imj
<{MainGenGui.$fToInputsABCD'7}> =: Gui.Generic.Classes.$fGToInputAltsM1 <{MainGenGui.$fToInputsABCD'10}> <{MainGenGui.$fToInputsABCD'8}> <{MainGenGui.$fConstructorABCD'2}>
<{MainGenGui.$fToInputsABCD'14}> =: <{MainGenGui.$fToInputsABCD'15}>
<{MainGenGui.$fToInputsABCD'22}> w2_s1imn w3_s1imp w4_s1imo = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'15}> <{MainGenGui.$fSelectorABCD'0_$cselName}> w2_s1imn w4_s1imo
<{MainGenGui.$fToInputsABCD'23}> w2_s1imt w3_s1imu w4_s1imv = Gui.Generic.Classes.$w$cgToInput1 <{MainGenGui.$fToInputsABCD'22}> w2_s1imt w3_s1imu w4_s1imv
<{MainGenGui.$fToInputsABCD'13}> w2_s1imz w3_s1imB w4_s1imA = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'15}> <{MainGenGui.$fSelectorABCD'2_$cselName}> w2_s1imz w4_s1imA
<{MainGenGui.$fToInputsABCD'12}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> <{MainGenGui.$fToInputsABCD'16}> <{MainGenGui.$fToInputsABCD'13}> eta_B3_B3 eta_B2_B2 eta_B1_B1
<{MainGenGui.$fToInputsABCD'18}> w2_s1imF w3_s1imG w4_s1imH = Gui.Generic.Classes.$w$cgToInput1 <{MainGenGui.$fToInputsABCD'12}> w2_s1imF w3_s1imG w4_s1imH
<{MainGenGui.$fToInputsABCD'11}> =: Gui.Generic.Classes.$fGToInputAltsM1 <{MainGenGui.$fToInputsABCD'18}> <{MainGenGui.$fToInputsABCD'12}> <{MainGenGui.$fConstructorABCD'1}>
<{MainGenGui.$fToInputsABCD'25}> w2_s1imL w3_s1imN w4_s1imM = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'15}> GHC.Generics.$fSelectorNoSelector_$cselName w2_s1imL w4_s1imM
<{MainGenGui.$fToInputsABCD'26}> w2_s1imR w3_s1imS w4_s1imT = Gui.Generic.Classes.$w$cgToInput1 <{MainGenGui.$fToInputsABCD'25}> w2_s1imR w3_s1imS w4_s1imT
<{MainGenGui.$fToInputsABCD'21}> =: Gui.Generic.Classes.$fGToInputAltsM1 <{MainGenGui.$fToInputsABCD'23}> <{MainGenGui.$fToInputsABCD'22}> <{MainGenGui.$fConstructorABCD'0}>
<{MainGenGui.$fToInputsABCD'24}> =: Gui.Generic.Classes.$fGToInputAltsM1 <{MainGenGui.$fToInputsABCD'26}> <{MainGenGui.$fToInputsABCD'25}> <{MainGenGui.$fConstructorABCD'}>
<{MainGenGui.$fToInputsABCD'29}> eta_B1_B1 = <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt eta_B1_B1
<{MainGenGui.$fToInputsABCD'28}> eta_B1_B1 = <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt eta_B1_B1
<{MainGenGui.$fToInputsABCD'27}> eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt <{MainGenGui.$fToInputsABCD'24}> <{MainGenGui.$fToInputsABCD'21}> eta_B1_B1
<{MainGenGui.$fToInputsABCD'20}> =: <{Gui.Generic.Classes.$fGToInputAlts:+:}> <{MainGenGui.$fToInputsABCD'27}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt <{MainGenGui.$fToInputsABCD'24}> <{MainGenGui.$fToInputsABCD'21}>
<{MainGenGui.$fToInputsABCD'19}> eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt <{MainGenGui.$fToInputsABCD'11}> <{MainGenGui.$fToInputsABCD'7}> eta_B1_B1
<{MainGenGui.$fToInputsABCD'6}> =: <{Gui.Generic.Classes.$fGToInputAlts:+:}> <{MainGenGui.$fToInputsABCD'19}> Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt <{MainGenGui.$fToInputsABCD'11}> <{MainGenGui.$fToInputsABCD'7}>
<{MainGenGui.$fToInputsABCD'5}> eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> <{MainGenGui.$fToInputsABCD'29}> <{MainGenGui.$fToInputsABCD'28}> <{MainGenGui.$fToInputsABCD'20}> <{MainGenGui.$fToInputsABCD'6}> eta_B1_B1
<{MainGenGui.$fToInputsABCD'4}> ds1_s1imV = select ds1_s1imV (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1imY -> Data.Maybe.Just (<{MainGenGui.$fGenericABCD'_$cfrom}> a4_s1imY))
<{MainGenGui.$fToInputsABCD'3}> =: FRP.Fursuit.Signal.Pure <{MainGenGui.$fToInputsABCD'4}>
<{MainGenGui.$fToInputsABCD'2}> ds1_s1in1 = select ds1_s1in1 (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1in4 -> Data.Maybe.Just (<{MainGenGui.$fGenericABCD'_$cto}> a4_s1in4))
<{MainGenGui.$fToInputsABCD'1}> =: FRP.Fursuit.Signal.Pure <{MainGenGui.$fToInputsABCD'2}>
<{MainGenGui.$fToInputsABCD'_$ctoInput}> $dMonadIO_s1in9 eta_s1ina = let $dMonad_s1inf = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1in9 in <{MainGenGui.$fToInputsABCD'_$ctoInput$34}> (Gui.Generic.Classes.$fGToInputsM11_$cgToInput <{MainGenGui.$fToInputsABCD'5}> $dMonadIO_s1in9 Data.Maybe.Nothing (FRP.Fursuit.Signal.App <{MainGenGui.$fToInputsABCD'3}> eta_s1ina)) (<{MainGenGui.$fToInputsABCD'_$ctoInput$33}> (GHC.Base.return $dMonad_s1inf)) (<{GHC.Base.>>=}> $dMonad_s1inf)
<{MainGenGui.$fToInputsABCD'_$ctoInput$33}> lvl45_s1inh ds_s1ink = lvl45_s1inh (<{GHC.Tuple.(,)}> (<{MainGenGui.$fToInputsABCD'_$ctoInput$7}> ds_s1ink) (<{MainGenGui.$fToInputsABCD'_$ctoInput$6}> ds_s1ink))
<{MainGenGui.$fToInputsABCD'_$ctoInput$34}> a4_s1ind lvl46_s1inE lvl47_s1inG eta1_s1inI = lvl47_s1inG (a4_s1ind eta1_s1inI) lvl46_s1inE
<{MainGenGui.$fToInputsABCD'_$ctoInput$6}> ds_s1ink = select ds_s1ink (<{GHC.Tuple.(,)}> a5_s1iMu <{s'_s1inz}> -> <{s'_s1inz}>)
<{MainGenGui.$fToInputsABCD'_$ctoInput$7}> ds_s1ink = select ds_s1ink (<{GHC.Tuple.(,)}> a5_s1ino <{s'_s1iMs}> -> select a5_s1ino (Gui.Generic.Types.Input ma_s1ins e_s1inu -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App <{MainGenGui.$fToInputsABCD'1}> ma_s1ins) e_s1inu))
<{MainGenGui.$fToInputsABCD'}> =: <{MainGenGui.$fToInputsABCD'_$ctoInput}>
<{MainGenGui.$fToInputsTest'11}> =: <{MainGenGui.$fToInputsABCD'15}>
<{MainGenGui.$fToInputsTest'12}> w2_s1inP w3_s1inR w4_s1inQ = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'15}> <{MainGenGui.$fSelectorTest'_$cselName}> w2_s1inP w4_s1inQ
<{MainGenGui.$fToInputsTest'10}> w2_s1inV w3_s1inX w4_s1inW = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsABCD'15}> <{MainGenGui.$fSelectorTest'0_$cselName}> w2_s1inV w4_s1inW
<{MainGenGui.$fToInputsTest'9}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput <{MainGenGui.$fToInputsABCD'_$ctoInput}> eta_B3_B3 eta_B2_B2 eta_B1_B1
<{MainGenGui.$fToInputsTest'8}> w2_s1io1 w3_s1io3 w4_s1io2 = Gui.Generic.Classes.$w$cgToInput <{MainGenGui.$fToInputsTest'9}> <{MainGenGui.$fSelectorTest'1_$cselName}> w2_s1io1 w4_s1io2
<{MainGenGui.$fToInputsTest'7}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> <{MainGenGui.$fToInputsTest'10}> <{MainGenGui.$fToInputsTest'8}> eta_B3_B3 eta_B2_B2 eta_B1_B1
<{MainGenGui.$fToInputsTest'6}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> <{MainGenGui.$fToInputsTest'12}> <{MainGenGui.$fToInputsTest'7}> eta_B3_B3 eta_B2_B2 eta_B1_B1
<{MainGenGui.$fToInputsTest'5}> w2_s1io7 w3_s1io8 w4_s1io9 = Gui.Generic.Classes.$w$cgToInput1 <{MainGenGui.$fToInputsTest'6}> w2_s1io7 w3_s1io8 w4_s1io9
<{MainGenGui.$fToInputsTest'4}> ds1_s1iob = select ds1_s1iob (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1ioe -> Data.Maybe.Just (<{MainGenGui.$fGenericTest'_$cfrom}> a4_s1ioe))
<{MainGenGui.$fToInputsTest'3}> =: FRP.Fursuit.Signal.Pure <{MainGenGui.$fToInputsTest'4}>
<{MainGenGui.$fToInputsTest'2}> ds1_s1ioh = select ds1_s1ioh (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a4_s1iok -> Data.Maybe.Just (<{MainGenGui.$fGenericTest'_$cto}> a4_s1iok))
<{MainGenGui.$fToInputsTest'1}> =: FRP.Fursuit.Signal.Pure <{MainGenGui.$fToInputsTest'2}>
<{MainGenGui.$fToInputsTest'_$ctoInput}> $dMonadIO_s1iop eta_s1ioq = let $dMonad_s1iov = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1iop in <{MainGenGui.$fToInputsTest'_$ctoInput$36}> (Gui.Generic.Classes.$fGToInputsM11_$cgToInput <{MainGenGui.$fToInputsTest'5}> $dMonadIO_s1iop Data.Maybe.Nothing (FRP.Fursuit.Signal.App <{MainGenGui.$fToInputsTest'3}> eta_s1ioq)) (<{MainGenGui.$fToInputsTest'_$ctoInput$35}> (GHC.Base.return $dMonad_s1iov)) (<{GHC.Base.>>=}> $dMonad_s1iov)
<{MainGenGui.$fToInputsTest'_$ctoInput$35}> lvl45_s1iox ds_s1ioA = lvl45_s1iox (<{GHC.Tuple.(,)}> (<{MainGenGui.$fToInputsTest'_$ctoInput$9}> ds_s1ioA) (<{MainGenGui.$fToInputsTest'_$ctoInput$8}> ds_s1ioA))
<{MainGenGui.$fToInputsTest'_$ctoInput$36}> a4_s1iot lvl46_s1ioU lvl47_s1ioW eta1_s1ioY = lvl47_s1ioW (a4_s1iot eta1_s1ioY) lvl46_s1ioU
<{MainGenGui.$fToInputsTest'_$ctoInput$8}> ds_s1ioA = select ds_s1ioA (<{GHC.Tuple.(,)}> a5_s1iMU <{s'_s1ioP}> -> <{s'_s1ioP}>)
<{MainGenGui.$fToInputsTest'_$ctoInput$9}> ds_s1ioA = select ds_s1ioA (<{GHC.Tuple.(,)}> a5_s1ioE <{s'_s1iMS}> -> select a5_s1ioE (Gui.Generic.Types.Input ma_s1ioI e_s1ioK -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App <{MainGenGui.$fToInputsTest'1}> ma_s1ioI) e_s1ioK))
<{MainGenGui.$fToInputsTest'}> =: <{MainGenGui.$fToInputsTest'_$ctoInput}>
<{MainGenGui.$w$c==}> ww_s1ip9 ww1_s1iph ww2_s1ipw ww3_s1ipa ww4_s1ipk ww5_s1ipx = let !wild_s1iN2 = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ww_s1ip9 ww3_s1ipa GHC.Prim.realWorld# in select wild_s1iN2 (<{GHC.Tuple.(,)}> ds4_s1iN1 ds5_s1ipf -> select ds5_s1ipf (_ -> false) (0 -> select ww1_s1iph (GHC.Ptr.Ptr ds1_s1ipo -> select ww4_s1ipk (GHC.Ptr.Ptr ds3_s1ipp -> let !wild2_s1iN5 = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ds1_s1ipo ds3_s1ipp GHC.Prim.realWorld# in select wild2_s1iN5 (<{GHC.Tuple.(,)}> ds6_s1iN4 ds7_s1ipu -> select ds7_s1ipu (_ -> false) (0 -> <{MainGenGui.$fEqABCD_$c==}> ww2_s1ipw ww5_s1ipx))))))
<{MainGenGui.$fEqTest_$c==}> w_s1ipA w1_s1ipI = select w_s1ipA (MainGenGui.Test ww_s1ipF ww1_s1ipR ww2_s1ipS -> select ww_s1ipF (GHC.Ptr.Ptr ww4_s1ipQ -> select w1_s1ipI (MainGenGui.Test ww5_s1ipN ww6_s1ipU ww7_s1ipV -> select ww5_s1ipN (GHC.Ptr.Ptr ww9_s1ipT -> <{MainGenGui.$w$c==}> ww4_s1ipQ ww1_s1ipR ww2_s1ipS ww9_s1ipT ww6_s1ipU ww7_s1ipV))))
<{MainGenGui.$fEqTest_$c/=}> a4_s1ipY b_s1iq6 = select a4_s1ipY (MainGenGui.Test ww_s1iq3 ww1_s1iqf ww2_s1iqg -> select ww_s1iq3 (GHC.Ptr.Ptr ww4_s1iqe -> select b_s1iq6 (MainGenGui.Test ww5_s1iqb ww6_s1iqi ww7_s1iqj -> select ww5_s1iqb (GHC.Ptr.Ptr ww9_s1iqh -> let !wild_s1iNe = <{MainGenGui.$w$c==}> ww4_s1iqe ww1_s1iqf ww2_s1iqg ww9_s1iqh ww6_s1iqi ww7_s1iqj in if wild_s1iNe false true))))
MainGenGui.$fEqTest =: <{GHC.Classes.D:Eq}> <{MainGenGui.$fEqTest_$c==}> <{MainGenGui.$fEqTest_$c/=}>
<{MainGenGui.$fEqABCD'_$c==}> ds_s1iqn ds1_s1iqq = select ds_s1iqn (<{MainGenGui.A'}> a4_s1iqt -> select ds1_s1iqq (_ -> false) (<{MainGenGui.A'}> b1_s1iqu -> <{Javascript.Base.String.$fEqPtr_$c==}> a4_s1iqt b1_s1iqu)) (<{MainGenGui.B'}> a4_s1iqy -> select ds1_s1iqq (_ -> false) (<{MainGenGui.B'}> b1_s1iqz -> <{Javascript.Base.String.$fEqPtr_$c==}> a4_s1iqy b1_s1iqz)) (<{MainGenGui.C'}> a4_s1iqF a5_s1iqO -> select ds1_s1iqq (_ -> false) (<{MainGenGui.C'}> b1_s1iqI b2_s1iqP -> select a4_s1iqF (GHC.Types.I# x6_s1iqL -> select b1_s1iqI (GHC.Types.I# y_s1iqM -> let !wild4_s1iNp = <{==#}> x6_s1iqL y_s1iqM in if wild4_s1iNp (<{Javascript.Base.String.$fEqPtr_$c==}> a5_s1iqO b2_s1iqP) false)))) (<{MainGenGui.D'}> a4_s1iqT -> select ds1_s1iqq (_ -> false) (<{MainGenGui.D'}> b1_s1iqU -> <{GHC.Classes.$fEqDouble_$c==}> a4_s1iqT b1_s1iqU))
<{MainGenGui.$fEqABCD'_$c/=}> a4_s1iqX b_s1iqY = let !wild_s1iNu = <{MainGenGui.$fEqABCD'_$c==}> a4_s1iqX b_s1iqY in if wild_s1iNu false true
<{MainGenGui.$fEqABCD'}> =: <{GHC.Classes.D:Eq}> <{MainGenGui.$fEqABCD'_$c==}> <{MainGenGui.$fEqABCD'_$c/=}>
<{MainGenGui.$w$c==1}> ww_s1ir7 ww1_s1irf ww2_s1iru ww3_s1ir8 ww4_s1iri ww5_s1irv = let !wild_s1iNz = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ww_s1ir7 ww3_s1ir8 GHC.Prim.realWorld# in select wild_s1iNz (<{GHC.Tuple.(,)}> ds4_s1iNy ds5_s1ird -> select ds5_s1ird (_ -> false) (0 -> select ww1_s1irf (GHC.Ptr.Ptr ds1_s1irm -> select ww4_s1iri (GHC.Ptr.Ptr ds3_s1irn -> let !wild2_s1iNC = ffi_wrapper4 _Javascript_Base_String_stringCompareTo ds1_s1irm ds3_s1irn GHC.Prim.realWorld# in select wild2_s1iNC (<{GHC.Tuple.(,)}> ds6_s1iNB ds7_s1irs -> select ds7_s1irs (_ -> false) (0 -> <{MainGenGui.$fEqABCD'_$c==}> ww2_s1iru ww5_s1irv))))))
<{MainGenGui.$fEqTest'_$c==}> w_s1iry w1_s1irG = select w_s1iry (<{MainGenGui.Test'}> ww_s1irD ww1_s1irP ww2_s1irQ -> select ww_s1irD (GHC.Ptr.Ptr ww4_s1irO -> select w1_s1irG (<{MainGenGui.Test'}> ww5_s1irL ww6_s1irS ww7_s1irT -> select ww5_s1irL (GHC.Ptr.Ptr ww9_s1irR -> <{MainGenGui.$w$c==1}> ww4_s1irO ww1_s1irP ww2_s1irQ ww9_s1irR ww6_s1irS ww7_s1irT))))
<{MainGenGui.$fEqTest'_$c/=}> a4_s1irW b_s1is4 = select a4_s1irW (<{MainGenGui.Test'}> ww_s1is1 ww1_s1isd ww2_s1ise -> select ww_s1is1 (GHC.Ptr.Ptr ww4_s1isc -> select b_s1is4 (<{MainGenGui.Test'}> ww5_s1is9 ww6_s1isg ww7_s1ish -> select ww5_s1is9 (GHC.Ptr.Ptr ww9_s1isf -> let !wild_s1iNL = <{MainGenGui.$w$c==1}> ww4_s1isc ww1_s1isd ww2_s1ise ww9_s1isf ww6_s1isg ww7_s1ish in if wild_s1iNL false true))))
<{MainGenGui.$fEqTest'}> =: <{GHC.Classes.D:Eq}> <{MainGenGui.$fEqTest'_$c==}> <{MainGenGui.$fEqTest'_$c/=}>
MainGenGui.$fShowTest5 =: GHC.CString.unpackCString# "Test {"
MainGenGui.$fShowTest4 =: GHC.CString.unpackCString# "label = "
<{MainGenGui.$fShowABCD'5}> =: GHC.CString.unpackCString# ", "
MainGenGui.$fShowTest3 =: GHC.CString.unpackCString# "description = "
MainGenGui.$fShowTest2 =: GHC.CString.unpackCString# "abcd = "
<{MainGenGui.$fShowABCD'9}> =: GHC.Types.C# '}'
MainGenGui.$w$cshowsPrec1 ww_s1itb ww1_s1isq ww2_s1isD ww3_s1isQ w_s1itd = let p_s1ita = MainGenGui.$w$cshowsPrec1$37 ww1_s1isq ww2_s1isD ww3_s1isQ, !wild_s1iOf = <{>=#}> ww_s1itb 11 in if wild_s1iOf (<{GHC.Types.:}> GHC.Show.shows11 (p_s1ita (<{GHC.Types.:}> GHC.Show.shows10 w_s1itd))) (p_s1ita w_s1itd)
MainGenGui.$w$cshowsPrec1$37 ww1_s1isq ww2_s1isD ww3_s1isQ x6_s1isS = <{GHC.Base.++}> MainGenGui.$fShowTest5 (<{GHC.Base.++}> MainGenGui.$fShowTest4 (MainGenGui.$w$cshowsPrec1$10 ww1_s1isq ww2_s1isD ww3_s1isQ x6_s1isS))
MainGenGui.$w$cshowsPrec1$10 ww1_s1isq ww2_s1isD ww3_s1isQ x6_s1isS = select ww1_s1isq (GHC.Ptr.Ptr ds2_s1isu -> let !wild_s1iOa = ffi_wrapper3 jsFromString ds2_s1isu GHC.Prim.realWorld# in select wild_s1iOa (<{GHC.Tuple.(,)}> ds3_s1iO9 ds4_s1isz -> let !wild1_s1iO8 = GHC.Ptr.Ptr ds4_s1isz in select wild1_s1iO8 (Javascript.Base.Types.FakePtr val_s1isC -> <{GHC.Base.++}> val_s1isC (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> MainGenGui.$fShowTest3 (MainGenGui.$w$cshowsPrec1$11 ww2_s1isD ww3_s1isQ x6_s1isS))))))
MainGenGui.$w$cshowsPrec1$11 ww2_s1isD ww3_s1isQ x6_s1isS = select ww2_s1isD (GHC.Ptr.Ptr ds6_s1isH -> let !wild2_s1iO6 = ffi_wrapper3 jsFromString ds6_s1isH GHC.Prim.realWorld# in select wild2_s1iO6 (<{GHC.Tuple.(,)}> ds7_s1iO5 ds8_s1isM -> let !wild3_s1iO4 = GHC.Ptr.Ptr ds8_s1isM in select wild3_s1iO4 (Javascript.Base.Types.FakePtr val1_s1isP -> <{GHC.Base.++}> val1_s1isP (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> MainGenGui.$fShowTest2 (MainGenGui.$w$cshowsPrec1$12 ww3_s1isQ x6_s1isS))))))
MainGenGui.$w$cshowsPrec1$12 ww3_s1isQ x6_s1isS = select ww3_s1isQ (MainGenGui.A  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD4 (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1isS)) (MainGenGui.B  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD6 (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1isS)) (MainGenGui.C  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD8 (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1isS)) (MainGenGui.D  -> <{GHC.Types.:}> MainGenGui.$fConstructorABCD10 (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1isS))
MainGenGui.$fShowTest_$cshowsPrec w_s1itk w1_s1itn w2_s1itw = select w_s1itk (GHC.Types.I# ww_s1its -> select w1_s1itn (MainGenGui.Test ww1_s1itt ww2_s1itu ww3_s1itv -> MainGenGui.$w$cshowsPrec1 ww_s1its ww1_s1itt ww2_s1itu ww3_s1itv w2_s1itw))
MainGenGui.$fShowTest1 w_s1itz w1_s1itH = select w_s1itz (MainGenGui.Test ww_s1itE ww1_s1itF ww2_s1itG -> MainGenGui.$w$cshowsPrec1 0 ww_s1itE ww1_s1itF ww2_s1itG w1_s1itH)
MainGenGui.$fShowTest_$cshowList eta_B2_B2 eta_B1_B1 = GHC.Show.showList__ MainGenGui.$fShowTest1 eta_B2_B2 eta_B1_B1
MainGenGui.$fShowTest_$cshow x6_s1itJ = select x6_s1itJ (MainGenGui.Test ww_s1itO ww1_s1itP ww2_s1itQ -> MainGenGui.$w$cshowsPrec1 0 ww_s1itO ww1_s1itP ww2_s1itQ <{GHC.Types.[]}>)
MainGenGui.$fShowTest =: <{GHC.Show.D:Show}> MainGenGui.$fShowTest_$cshowsPrec MainGenGui.$fShowTest_$cshow MainGenGui.$fShowTest_$cshowList
<{MainGenGui.$fShowABCD'11}> =: GHC.CString.unpackCString# "A\' "
<{MainGenGui.$fShowABCD'8}> =: GHC.CString.unpackCString# "B\' {"
<{MainGenGui.$fShowABCD'10}> =: GHC.CString.unpackCString# "b\'s = "
<{MainGenGui.$fShowABCD'7}> =: GHC.CString.unpackCString# "C\' {"
<{MainGenGui.$fShowABCD'6}> =: GHC.CString.unpackCString# "c\'i = "
<{MainGenGui.$fShowABCD'4}> =: GHC.CString.unpackCString# "c\'s = "
<{MainGenGui.$fShowABCD'2}> =: GHC.CString.unpackCString# "D\' "
<{MainGenGui.$fShowABCD'3}> =: GHC.Types.I# 11
MainGenGui.$w$cshowsPrec ww_s1iue w_s1itT = select w_s1itT (<{MainGenGui.A'}> b1_s1itY -> let p_s1iud = MainGenGui.$w$cshowsPrec$38 b1_s1itY, !wild1_s1iOF = <{>=#}> ww_s1iue 11 in if wild1_s1iOF (MainGenGui.$w$cshowsPrec$39 p_s1iud) p_s1iud) (<{MainGenGui.B'}> b1_s1iuq -> let g_s1iuG = MainGenGui.$w$cshowsPrec$40 b1_s1iuq, !wild1_s1iOO = <{>=#}> ww_s1iue 11 in if wild1_s1iOO (MainGenGui.$w$cshowsPrec$42 g_s1iuG) (MainGenGui.$w$cshowsPrec$41 g_s1iuG)) (<{MainGenGui.C'}> b1_s1iv0 b2_s1iv4 -> let p_s1ivr = MainGenGui.$w$cshowsPrec$43 b1_s1iv0 b2_s1iv4, !wild1_s1iOY = <{>=#}> ww_s1iue 11 in if wild1_s1iOY (MainGenGui.$w$cshowsPrec$44 p_s1ivr) p_s1ivr) (<{MainGenGui.D'}> b1_s1ivC -> let g_s1ivG = MainGenGui.$w$cshowsPrec$16 b1_s1ivC, !wild1_s1iP2 = <{>=#}> ww_s1iue 11 in if wild1_s1iP2 (MainGenGui.$w$cshowsPrec$46 g_s1ivG) (MainGenGui.$w$cshowsPrec$45 g_s1ivG))
MainGenGui.$w$cshowsPrec$38 b1_s1itY x6_s1iub = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'11}> (MainGenGui.$w$cshowsPrec$13 b1_s1itY x6_s1iub)
MainGenGui.$w$cshowsPrec$39 p_s1iud x6_s1iuh = <{GHC.Types.:}> GHC.Show.shows11 (p_s1iud (<{GHC.Types.:}> GHC.Show.shows10 x6_s1iuh))
MainGenGui.$w$cshowsPrec$40 b1_s1iuq x6_s1iuD = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'10}> (MainGenGui.$w$cshowsPrec$14 b1_s1iuq x6_s1iuD)
MainGenGui.$w$cshowsPrec$41 g_s1iuG x6_s1iuJ = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'8}> (g_s1iuG x6_s1iuJ)
MainGenGui.$w$cshowsPrec$42 g_s1iuG x6_s1iuO = <{GHC.Types.:}> GHC.Show.shows11 (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'8}> (g_s1iuG (<{GHC.Types.:}> GHC.Show.shows10 x6_s1iuO)))
MainGenGui.$w$cshowsPrec$43 b1_s1iv0 b2_s1iv4 x6_s1ivh = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'7}> (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'6}> (MainGenGui.$w$cshowsPrec$15 b1_s1iv0 b2_s1iv4 x6_s1ivh))
MainGenGui.$w$cshowsPrec$44 p_s1ivr x6_s1ivu = <{GHC.Types.:}> GHC.Show.shows11 (p_s1ivr (<{GHC.Types.:}> GHC.Show.shows10 x6_s1ivu))
MainGenGui.$w$cshowsPrec$45 g_s1ivG x6_s1ivJ = <{GHC.Base.++}> <{MainGenGui.$fShowABCD'2}> (g_s1ivG x6_s1ivJ)
MainGenGui.$w$cshowsPrec$46 g_s1ivG x6_s1ivO = <{GHC.Types.:}> GHC.Show.shows11 (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'2}> (g_s1ivG (<{GHC.Types.:}> GHC.Show.shows10 x6_s1ivO)))
MainGenGui.$w$cshowsPrec$13 b1_s1itY x6_s1iub = select b1_s1itY (GHC.Ptr.Ptr ds2_s1iu2 -> let !wild1_s1iOC = ffi_wrapper3 jsFromString ds2_s1iu2 GHC.Prim.realWorld# in select wild1_s1iOC (<{GHC.Tuple.(,)}> ds3_s1iOB ds4_s1iu7 -> let !wild2_s1iOA = GHC.Ptr.Ptr ds4_s1iu7 in select wild2_s1iOA (Javascript.Base.Types.FakePtr val_s1iua -> <{GHC.Base.++}> val_s1iua x6_s1iub)))
MainGenGui.$w$cshowsPrec$14 b1_s1iuq x6_s1iuD = select b1_s1iuq (GHC.Ptr.Ptr ds2_s1iuu -> let !wild1_s1iOM = ffi_wrapper3 jsFromString ds2_s1iuu GHC.Prim.realWorld# in select wild1_s1iOM (<{GHC.Tuple.(,)}> ds3_s1iOL ds4_s1iuz -> let !wild2_s1iOK = GHC.Ptr.Ptr ds4_s1iuz in select wild2_s1iOK (Javascript.Base.Types.FakePtr val_s1iuC -> <{GHC.Base.++}> val_s1iuC (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1iuD))))
MainGenGui.$w$cshowsPrec$15 b1_s1iv0 b2_s1iv4 x6_s1ivh = select b1_s1iv0 (GHC.Types.I# ww1_s1iv3 -> GHC.Show.itos ww1_s1iv3 (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'4}> (MainGenGui.$w$cshowsPrec$17 b2_s1iv4 x6_s1ivh))))
MainGenGui.$w$cshowsPrec$17 b2_s1iv4 x6_s1ivh = select b2_s1iv4 (GHC.Ptr.Ptr ds2_s1iv8 -> let !wild1_s1iOV = ffi_wrapper3 jsFromString ds2_s1iv8 GHC.Prim.realWorld# in select wild1_s1iOV (<{GHC.Tuple.(,)}> ds3_s1iOU ds4_s1ivd -> let !wild2_s1iOT = GHC.Ptr.Ptr ds4_s1ivd in select wild2_s1iOT (Javascript.Base.Types.FakePtr val_s1ivg -> <{GHC.Base.++}> val_s1ivg (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1ivh))))
MainGenGui.$w$cshowsPrec$16 b1_s1ivC = select b1_s1ivC (GHC.Types.D# ww1_s1ivF -> GHC.Float.$w$sshowSignedFloat GHC.Float.$fShowDouble_$sshowFloat <{MainGenGui.$fShowABCD'3}> ww1_s1ivF)
<{MainGenGui.$fShowABCD'_$cshowsPrec}> w_s1ivY w1_s1iw2 = select w_s1ivY (GHC.Types.I# ww_s1iw1 -> MainGenGui.$w$cshowsPrec ww_s1iw1 w1_s1iw2)
<{MainGenGui.$fShowABCD'1}> w_s1iw4 = MainGenGui.$w$cshowsPrec 0 w_s1iw4
<{MainGenGui.$fShowABCD'_$cshowList}> eta_B2_B2 eta_B1_B1 = GHC.Show.showList__ <{MainGenGui.$fShowABCD'1}> eta_B2_B2 eta_B1_B1
<{MainGenGui.$fShowABCD'_$cshow}> x6_s1iw6 = MainGenGui.$w$cshowsPrec 0 x6_s1iw6 <{GHC.Types.[]}>
<{MainGenGui.$fShowABCD'}> =: <{GHC.Show.D:Show}> <{MainGenGui.$fShowABCD'_$cshowsPrec}> <{MainGenGui.$fShowABCD'_$cshow}> <{MainGenGui.$fShowABCD'_$cshowList}>
<{MainGenGui.$fShowTest'5}> =: GHC.CString.unpackCString# "Test\' {"
<{MainGenGui.$fShowTest'4}> =: GHC.CString.unpackCString# "label\' = "
<{MainGenGui.$fShowTest'3}> =: GHC.CString.unpackCString# "description\' = "
<{MainGenGui.$fShowTest'2}> =: GHC.CString.unpackCString# "abcd\' = "
MainGenGui.$w$cshowsPrec2 ww_s1iwX ww1_s1iwg ww2_s1iwt ww3_s1iwc = let p_s1iwW = MainGenGui.$w$cshowsPrec2$47 (MainGenGui.$w$cshowsPrec 0 ww3_s1iwc) ww1_s1iwg ww2_s1iwt, !wild_s1iPq = <{>=#}> ww_s1iwX 11 in if wild_s1iPq (MainGenGui.$w$cshowsPrec2$48 p_s1iwW) p_s1iwW
MainGenGui.$w$cshowsPrec2$47 f_s1iwd ww1_s1iwg ww2_s1iwt x6_s1iwG = <{GHC.Base.++}> <{MainGenGui.$fShowTest'5}> (<{GHC.Base.++}> <{MainGenGui.$fShowTest'4}> (MainGenGui.$w$cshowsPrec2$18 f_s1iwd ww1_s1iwg ww2_s1iwt x6_s1iwG))
MainGenGui.$w$cshowsPrec2$48 p_s1iwW x6_s1ix0 = <{GHC.Types.:}> GHC.Show.shows11 (p_s1iwW (<{GHC.Types.:}> GHC.Show.shows10 x6_s1ix0))
MainGenGui.$w$cshowsPrec2$18 f_s1iwd ww1_s1iwg ww2_s1iwt x6_s1iwG = select ww1_s1iwg (GHC.Ptr.Ptr ds2_s1iwk -> let !wild_s1iPo = ffi_wrapper3 jsFromString ds2_s1iwk GHC.Prim.realWorld# in select wild_s1iPo (<{GHC.Tuple.(,)}> ds3_s1iPi ds4_s1iwp -> let !wild1_s1iPn = GHC.Ptr.Ptr ds4_s1iwp in select wild1_s1iPn (Javascript.Base.Types.FakePtr val_s1iws -> <{GHC.Base.++}> val_s1iws (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> <{MainGenGui.$fShowTest'3}> (MainGenGui.$w$cshowsPrec2$19 f_s1iwd ww2_s1iwt x6_s1iwG))))))
MainGenGui.$w$cshowsPrec2$19 f_s1iwd ww2_s1iwt x6_s1iwG = select ww2_s1iwt (GHC.Ptr.Ptr ds6_s1iwx -> let !wild2_s1iPl = ffi_wrapper3 jsFromString ds6_s1iwx GHC.Prim.realWorld# in select wild2_s1iPl (<{GHC.Tuple.(,)}> ds7_s1iPj ds8_s1iwC -> let !wild3_s1iPk = GHC.Ptr.Ptr ds8_s1iwC in select wild3_s1iPk (Javascript.Base.Types.FakePtr val1_s1iwF -> <{GHC.Base.++}> val1_s1iwF (<{GHC.Base.++}> <{MainGenGui.$fShowABCD'5}> (<{GHC.Base.++}> <{MainGenGui.$fShowTest'2}> (f_s1iwd (<{GHC.Types.:}> <{MainGenGui.$fShowABCD'9}> x6_s1iwG)))))))
<{MainGenGui.$fShowTest'_$cshowsPrec}> w_s1ix8 w1_s1ixb = select w_s1ix8 (GHC.Types.I# ww_s1ixg -> select w1_s1ixb (<{MainGenGui.Test'}> ww1_s1ixh ww2_s1ixi ww3_s1ixj -> MainGenGui.$w$cshowsPrec2 ww_s1ixg ww1_s1ixh ww2_s1ixi ww3_s1ixj))
<{MainGenGui.$fShowTest'1}> w_s1ixl = select w_s1ixl (<{MainGenGui.Test'}> ww_s1ixq ww1_s1ixr ww2_s1ixs -> MainGenGui.$w$cshowsPrec2 0 ww_s1ixq ww1_s1ixr ww2_s1ixs)
<{MainGenGui.$fShowTest'_$cshowList}> eta_B2_B2 eta_B1_B1 = GHC.Show.showList__ <{MainGenGui.$fShowTest'1}> eta_B2_B2 eta_B1_B1
<{MainGenGui.$fShowTest'_$cshow}> x6_s1ixu = select x6_s1ixu (<{MainGenGui.Test'}> ww_s1ixz ww1_s1ixA ww2_s1ixB -> MainGenGui.$w$cshowsPrec2 0 ww_s1ixz ww1_s1ixA ww2_s1ixB <{GHC.Types.[]}>)
<{MainGenGui.$fShowTest'}> =: <{GHC.Show.D:Show}> <{MainGenGui.$fShowTest'_$cshowsPrec}> <{MainGenGui.$fShowTest'_$cshow}> <{MainGenGui.$fShowTest'_$cshowList}>
MainGenGui.$dShow =: GHC.Show.$fShowMaybe MainGenGui.$fShowTest
MainGenGui.a w2_s1ixE w3_s1ixF = Gui.Generic.Instances.Maybe.$w$ctoInput Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput w2_s1ixE w3_s1ixF
MainGenGui.$dShow1 =: GHC.Show.$fShowMaybe GHC.Show.$fShowInt
MainGenGui.$dDefaultM =: Data.DefaultM.$fDefaultMmMaybe GHC.Base.$fMonadIO
MainGenGui.$dDefaultM1 =: Data.DefaultM.$fDefaultMmInt GHC.Base.$fMonadIO
MainGenGui.main_x =: GHC.CString.unpackCString# "body"
MainGenGui.main3 =: Javascript.Base.Types.FakePtr MainGenGui.main_x
MainGenGui.x =: GHC.CString.unpackCString# "Filter on:"
MainGenGui.lvl =: let !ds_s1iPM = Javascript.Base.Types.FakePtr MainGenGui.x in select ds_s1iPM (GHC.Ptr.Ptr ds1_s1ixK -> let !tpl_s1iPL = MainGenGui.x, !wild_s1iPK = ffi_wrapper3 jsToString ds1_s1ixK GHC.Prim.realWorld# in select wild_s1iPK (<{GHC.Tuple.(,)}> ds2_s1iPJ ds3_s1ixP -> GHC.Ptr.Ptr ds3_s1ixP))
MainGenGui.lvl1 =: Control.Monad.Trans.State.Lazy.$fMonadStateT GHC.Base.$fMonadIO
MainGenGui.lvl2 w_s1ixR = Control.Monad.Trans.State.Lazy.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO w_s1ixR
MainGenGui.lvl3 =: GHC.Types.I# 5
MainGenGui.lvl4 =: Data.Maybe.Just MainGenGui.lvl3
MainGenGui.lvl5 =: FRP.Fursuit.Signal.Pure MainGenGui.lvl4
MainGenGui.lvl6 =: Gui.Generic.Instances.Basic.$wnumInput MainGenGui.lvl1 MainGenGui.lvl2 Gui.Generic.ConvNum.$fConvNumInt_$cconvNum GHC.Show.$fShowInt MainGenGui.lvl5
MainGenGui.lvl7 ds_s1ixU ds1_s1ixX = select ds_s1ixU (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just n_s1iy2 -> select ds1_s1ixX (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just cs_s1iy4 -> Data.Maybe.Just (MainGenGui.lvl7$55 cs_s1iy4 n_s1iy2)))
MainGenGui.lvl7$55 cs_s1iy4 n_s1iy2 = let !sat_s1iPW_s1iPW = Data.Maybe.catMaybes1 cs_s1iy4 in GHC.List.filter (MainGenGui.lvl7$49 n_s1iy2) sat_s1iPW_s1iPW
MainGenGui.lvl7$49 n_s1iy2 ds2_s1iy1 = GHC.Classes.geInt ds2_s1iy1 n_s1iy2
MainGenGui.x1 =: GHC.CString.unpackCString# "Test Dialog"
MainGenGui.lvl8 =: let !ds_s1iQ4 = Javascript.Base.Types.FakePtr MainGenGui.x1 in select ds_s1iQ4 (GHC.Ptr.Ptr ds1_s1iyb -> let !tpl_s1iQ3 = MainGenGui.x1, !wild_s1iQ2 = ffi_wrapper3 jsToString ds1_s1iyb GHC.Prim.realWorld# in select wild_s1iQ2 (<{GHC.Tuple.(,)}> ds2_s1iQ1 ds3_s1iyg -> GHC.Ptr.Ptr ds3_s1iyg))
MainGenGui.a1 x6_s1iyj eta_s1iyl = let !sat_s1iQ6_s1iQ6 = Gui.Dialog.$fShowDialogResult_$cshowsPrec MainGenGui.$dShow GHC.Show.shows26 x6_s1iyj <{GHC.Types.[]}> in Javascript.Utils.dumpString1 sat_s1iQ6_s1iQ6 eta_s1iyl
MainGenGui.x2 =: GHC.CString.unpackCString# "xabc"
MainGenGui.lvl9 =: let !ds_s1iQc = Javascript.Base.Types.FakePtr MainGenGui.x2 in select ds_s1iQc (GHC.Ptr.Ptr ds1_s1iyq -> let !tpl_s1iQb = MainGenGui.x2, !wild_s1iQa = ffi_wrapper3 jsToString ds1_s1iyq GHC.Prim.realWorld# in select wild_s1iQa (<{GHC.Tuple.(,)}> ds2_s1iQ9 ds3_s1iyv -> GHC.Ptr.Ptr ds3_s1iyv))
MainGenGui.x3 =: GHC.CString.unpackCString# "xdef"
MainGenGui.lvl10 =: let !ds_s1iQi = Javascript.Base.Types.FakePtr MainGenGui.x3 in select ds_s1iQi (GHC.Ptr.Ptr ds1_s1iyA -> let !tpl_s1iQh = MainGenGui.x3, !wild_s1iQg = ffi_wrapper3 jsToString ds1_s1iyA GHC.Prim.realWorld# in select wild_s1iQg (<{GHC.Tuple.(,)}> ds2_s1iQf ds3_s1iyF -> GHC.Ptr.Ptr ds3_s1iyF))
MainGenGui.lvl11 =: MainGenGui.Test MainGenGui.lvl9 MainGenGui.lvl10 MainGenGui.C
MainGenGui.lvl12 =: Data.Maybe.Just MainGenGui.lvl11
MainGenGui.lvl13 =: let !ds_s1iQp = Javascript.Base.Types.FakePtr MainGenGui.x2 in select ds_s1iQp (GHC.Ptr.Ptr ds1_s1iyK -> let !tpl_s1iQo = MainGenGui.x2, !wild_s1iQn = ffi_wrapper3 jsToString ds1_s1iyK GHC.Prim.realWorld# in select wild_s1iQn (<{GHC.Tuple.(,)}> ds2_s1iQm ds3_s1iyP -> GHC.Ptr.Ptr ds3_s1iyP))
MainGenGui.lvl14 =: let !ds_s1iQu = Javascript.Base.Types.FakePtr MainGenGui.x3 in select ds_s1iQu (GHC.Ptr.Ptr ds1_s1iyU -> let !tpl_s1iQt = MainGenGui.x3, !wild_s1iQs = ffi_wrapper3 jsToString ds1_s1iyU GHC.Prim.realWorld# in select wild_s1iQs (<{GHC.Tuple.(,)}> ds2_s1iQr ds3_s1iyZ -> GHC.Ptr.Ptr ds3_s1iyZ))
MainGenGui.lvl15 =: GHC.Types.D# 5.5
MainGenGui.lvl16 =: <{MainGenGui.D'}> MainGenGui.lvl15
MainGenGui.lvl17 =: <{MainGenGui.Test'}> MainGenGui.lvl13 MainGenGui.lvl14 MainGenGui.lvl16
MainGenGui.lvl18 =: Data.Maybe.Just MainGenGui.lvl17
MainGenGui.lvl19 =: GHC.CString.unpackCString# "output1:"
MainGenGui.a2 x6_s1iz2 eta_s1izh = let !sat_s1iQB_s1iQB = <{GHC.Base.++}> MainGenGui.lvl19 (MainGenGui.a2$20 x6_s1iz2) in Javascript.Utils.dumpString1 sat_s1iQB_s1iQB eta_s1izh
MainGenGui.a2$20 x6_s1iz2 = select x6_s1iz2 (Data.Maybe.Nothing  -> GHC.Show.$fShowMaybe2) (Data.Maybe.Just x7_s1iz5 -> <{GHC.Base.++}> GHC.Show.$fShowMaybe1 (MainGenGui.a2$21 x7_s1iz5))
MainGenGui.a2$21 x7_s1iz5 = select x7_s1iz5 (MainGenGui.Test ww_s1iza ww1_s1izb ww2_s1izc -> MainGenGui.$w$cshowsPrec1 11 ww_s1iza ww1_s1izb ww2_s1izc <{GHC.Types.[]}>)
MainGenGui.lvl20 =: GHC.CString.unpackCString# "output2:"
MainGenGui.a3 x6_s1izk eta_s1izz = let !sat_s1iQH_s1iQH = <{GHC.Base.++}> MainGenGui.lvl20 (MainGenGui.a3$22 x6_s1izk) in Javascript.Utils.dumpString1 sat_s1iQH_s1iQH eta_s1izz
MainGenGui.a3$22 x6_s1izk = select x6_s1izk (Data.Maybe.Nothing  -> GHC.Show.$fShowMaybe2) (Data.Maybe.Just x7_s1izn -> <{GHC.Base.++}> GHC.Show.$fShowMaybe1 (MainGenGui.a3$23 x7_s1izn))
MainGenGui.a3$23 x7_s1izn = select x7_s1izn (<{MainGenGui.Test'}> ww_s1izs ww1_s1izt ww2_s1izu -> MainGenGui.$w$cshowsPrec2 11 ww_s1izs ww1_s1izt ww2_s1izu <{GHC.Types.[]}>)
MainGenGui.lvl21 =: Gui.Dialog.dialog MainGenGui.$fEqTest Control.Monad.IO.Class.$fMonadIOIO MainGenGui.$fToInputsTest_$ctoInput
MainGenGui.x4 =: GHC.CString.unpackCString# "abc"
MainGenGui.lvl22 =: let !ds_s1iQR = Javascript.Base.Types.FakePtr MainGenGui.x4 in select ds_s1iQR (GHC.Ptr.Ptr ds1_s1izE -> let !tpl_s1iQQ = MainGenGui.x4, !wild_s1iQP = ffi_wrapper3 jsToString ds1_s1izE GHC.Prim.realWorld# in select wild_s1iQP (<{GHC.Tuple.(,)}> ds2_s1iQO ds3_s1izJ -> GHC.Ptr.Ptr ds3_s1izJ))
MainGenGui.x5 =: GHC.CString.unpackCString# "def"
MainGenGui.lvl23 =: let !ds_s1iQX = Javascript.Base.Types.FakePtr MainGenGui.x5 in select ds_s1iQX (GHC.Ptr.Ptr ds1_s1izO -> let !tpl_s1iQW = MainGenGui.x5, !wild_s1iQV = ffi_wrapper3 jsToString ds1_s1izO GHC.Prim.realWorld# in select wild_s1iQV (<{GHC.Tuple.(,)}> ds2_s1iQU ds3_s1izT -> GHC.Ptr.Ptr ds3_s1izT))
MainGenGui.lvl24 =: let !ds_s1iR2 = Javascript.Base.Types.FakePtr MainGenGui.$fSelectorTest4 in select ds_s1iR2 (GHC.Ptr.Ptr ds1_s1izY -> let !tpl_s1iR1 = MainGenGui.$fSelectorTest4, !wild_s1iR0 = ffi_wrapper3 jsToString ds1_s1izY GHC.Prim.realWorld# in select wild_s1iR0 (<{GHC.Tuple.(,)}> ds2_s1iQZ ds3_s1iA3 -> GHC.Ptr.Ptr ds3_s1iA3))
MainGenGui.lvl25 =: <{MainGenGui.B'}> MainGenGui.lvl24
MainGenGui.lvl26 =: <{MainGenGui.Test'}> MainGenGui.lvl22 MainGenGui.lvl23 MainGenGui.lvl25
MainGenGui.lvl27 =: Data.Maybe.Just MainGenGui.lvl26
MainGenGui.lvl28 =: Data.Maybe.Just MainGenGui.lvl27
MainGenGui.lvl29 =: let !ds_s1iRb = Javascript.Base.Types.FakePtr MainGenGui.x4 in select ds_s1iRb (GHC.Ptr.Ptr ds1_s1iA8 -> let !tpl_s1iRa = MainGenGui.x4, !wild_s1iR9 = ffi_wrapper3 jsToString ds1_s1iA8 GHC.Prim.realWorld# in select wild_s1iR9 (<{GHC.Tuple.(,)}> ds2_s1iR8 ds3_s1iAd -> GHC.Ptr.Ptr ds3_s1iAd))
MainGenGui.lvl30 =: let !ds_s1iRg = Javascript.Base.Types.FakePtr MainGenGui.x5 in select ds_s1iRg (GHC.Ptr.Ptr ds1_s1iAi -> let !tpl_s1iRf = MainGenGui.x5, !wild_s1iRe = ffi_wrapper3 jsToString ds1_s1iAi GHC.Prim.realWorld# in select wild_s1iRe (<{GHC.Tuple.(,)}> ds2_s1iRd ds3_s1iAn -> GHC.Ptr.Ptr ds3_s1iAn))
MainGenGui.lvl31 =: MainGenGui.Test MainGenGui.lvl29 MainGenGui.lvl30 MainGenGui.B
MainGenGui.lvl32 =: Data.Maybe.Just MainGenGui.lvl31
MainGenGui.lvl33 =: Data.Maybe.Just MainGenGui.lvl32
MainGenGui.lvl34 =: <{Gui.Generic.Instances.List.$fToInputs[]_$ctoInput}> GHC.Show.$fShowInt Data.Default.Instances.Base.$fDefaultInt_$cdef Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput MainGenGui.$dDefaultM1 Control.Monad.IO.Class.$fMonadIOIO
MainGenGui.lvl35 =: FRP.Fursuit.Signal.Pure MainGenGui.lvl7
MainGenGui.lvl36 =: <{Gui.Generic.Instances.List.$fToInputs[]_$ctoInput}> MainGenGui.$dShow1 Data.Maybe.Nothing MainGenGui.a MainGenGui.$dDefaultM Control.Monad.IO.Class.$fMonadIOIO
MainGenGui.lvl37 =: GHC.Types.I# 4
MainGenGui.lvl38 =: GHC.Types.I# 6
MainGenGui.lvl39 =: <{GHC.Types.:}> MainGenGui.lvl38 <{GHC.Types.[]}>
MainGenGui.lvl40 =: <{GHC.Types.:}> MainGenGui.lvl3 MainGenGui.lvl39
MainGenGui.lvl41 =: <{GHC.Types.:}> MainGenGui.lvl37 MainGenGui.lvl40
MainGenGui.lvl42 =: GHC.Base.map Data.Maybe.Just MainGenGui.lvl41
MainGenGui.lvl43 =: Data.Maybe.Just MainGenGui.lvl42
MainGenGui.lvl44 =: Data.Maybe.Just MainGenGui.lvl43
MainGenGui.main2 body_s1iB4 eta_s1iAL eta1_s1iAr = let !ds1_s1iSf = FRP.Fursuit.Pipe.emptyPipe1 eta1_s1iAr in select ds1_s1iSf (<{GHC.Tuple.(,)}> ipv_s1iAI ipv1_s1iAv -> select ipv1_s1iAv (<{GHC.Tuple.(,)}> ds_s1iAz ds2_s1iAK -> select ds_s1iAz (FRP.Fursuit.Signal.P ref_s1iAE ds3_s1iSb ds4_s1iSc -> select ref_s1iAE (GHC.STRef.STRef var#_s1iAH -> let !s2#_s1iAM = writeMutVar# var#_s1iAH MainGenGui.lvl44 ipv_s1iAI, !ds5_s1iS9 = MainGenGui.lvl36 ds2_s1iAK eta_s1iAL s2#_s1iAM in select ds5_s1iS9 (<{GHC.Tuple.(,)}> ipv2_s1iFs ipv3_s1iAQ -> select ipv3_s1iAQ (<{GHC.Tuple.(,)}> a5_s1iAU <{s'_s1iBi}> -> select a5_s1iAU (Gui.Generic.Types.Input ww_s1iBW ww1_s1iFq -> select ww1_s1iFq (<{GHC.Types.[]}>  -> MainGenGui.main2$1 body_s1iB4 <{s'_s1iBi}> ww_s1iBW ipv2_s1iFs) (<{GHC.Types.:}> y_s1iFv ys_s1iG1 -> select y_s1iFv (GHC.Ptr.Ptr ds7_s1iFB -> select body_s1iB4 (GHC.Ptr.Ptr ds9_s1iFC -> let !wild5_s1iSZ = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds7_s1iFB ds9_s1iFC ipv2_s1iFs in select wild5_s1iSZ (<{GHC.Tuple.(,)}> ds10_s1iG2 ds11_s1iRX -> let a112_s1iG0 = MainGenGui.main2$50 a112_s1iG0 ds9_s1iFC, !ds12_s1iT4 = a112_s1iG0 ys_s1iG1 ds10_s1iG2 in select ds12_s1iT4 (<{GHC.Tuple.(,)}> ipv4_s1iG6 ipv5_s1iRW -> MainGenGui.main2$1 body_s1iB4 <{s'_s1iBi}> ww_s1iBW ipv4_s1iG6))))))))))))
MainGenGui.main2$50 a112_s1iG0 ds9_s1iFC ds12_s1iFK eta3_s1iFM = select ds12_s1iFK (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s1iFM <{GHC.Tuple.()}>) (<{GHC.Types.:}> y1_s1iFP ys1_s1iFY -> select y1_s1iFP (GHC.Ptr.Ptr ds14_s1iFT -> let !wild7_s1iT2 = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds14_s1iFT ds9_s1iFC eta3_s1iFM in select wild7_s1iT2 (<{GHC.Tuple.(,)}> ds15_s1iFZ ds16_s1iRV -> a112_s1iG0 ys1_s1iFY ds15_s1iFZ)))
MainGenGui.main2$1 body_s1iB4 <{s'_s1iBi}> ww_s1iBW ipv4_s1iB0 = let !ds6_s1iS6 = Gui.Base.Text.plainText1 MainGenGui.lvl ipv4_s1iB0 in select ds6_s1iS6 (<{GHC.Tuple.(,)}> ipv5_s1iBd ipv6_s1iB7 -> select body_s1iB4 (GHC.Ptr.Ptr ds8_s1iBb -> select ipv6_s1iB7 (GHC.Ptr.Ptr ds10_s1iBc -> let !wild4_s1iS3 = ffi_wrapper4 _Javascript_JQuery_Basic_appendToJQuery ds8_s1iBb ds10_s1iBc ipv5_s1iBd in select wild4_s1iS3 (<{GHC.Tuple.(,)}> ds11_s1iBj ds12_s1iS2 -> let !ds13_s1iS1 = MainGenGui.lvl6 <{s'_s1iBi}> ds11_s1iBj in select ds13_s1iS1 (<{GHC.Tuple.(,)}> ipv7_s1iBQ ipv8_s1iBn -> select ipv8_s1iBn (<{GHC.Tuple.(,)}> a4_s1iBr <{s'1_s1iBZ}> -> select a4_s1iBr (Gui.Generic.Types.Input ww2_s1iBU ww3_s1iBP -> let a112_s1iBO = MainGenGui.main2$51 a112_s1iBO ds8_s1iBb, !ds14_s1iSi = a112_s1iBO ww3_s1iBP ipv7_s1iBQ in select ds14_s1iSi (<{GHC.Tuple.(,)}> ipv9_s1iC0 ipv10_s1iRU -> let !ds15_s1iSm = MainGenGui.lvl34 (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App MainGenGui.lvl35 ww2_s1iBU) ww_s1iBW) <{s'1_s1iBZ}> ipv9_s1iC0 in select ds15_s1iSm (<{GHC.Tuple.(,)}> ipv11_s1iCx ipv12_s1iC4 -> select ipv12_s1iC4 (<{GHC.Tuple.(,)}> a6_s1iC8 <{s'2_s1iDe}> -> select a6_s1iC8 (Gui.Generic.Types.Input ds16_s1iRS ds17_s1iCw -> let a7_s1iCv = MainGenGui.main2$52 a7_s1iCv ds8_s1iBb, !ds18_s1iSC = a7_s1iCv ds17_s1iCw ipv11_s1iCx in select ds18_s1iSC (<{GHC.Tuple.(,)}> ipv13_s1iCB ipv14_s1iRO -> let !ds19_s1iSB = FRP.Fursuit.Pipe.emptyPipe1 ipv13_s1iCB in select ds19_s1iSB (<{GHC.Tuple.(,)}> ipv15_s1iCS ipv16_s1iCF -> select ipv16_s1iCF (<{GHC.Tuple.(,)}> ds20_s1iCJ ds21_s1iDd -> select ds20_s1iCJ (FRP.Fursuit.Signal.P ref1_s1iCO ds22_s1iDI ds23_s1iDL -> select ref1_s1iCO (GHC.STRef.STRef var#1_s1iCR -> let !s2#1_s1iCU = writeMutVar# var#1_s1iCR MainGenGui.lvl33 ipv15_s1iCS, !ds24_s1iSx = FRP.Fursuit.Pipe.emptyPipe1 s2#1_s1iCU in select ds24_s1iSx (<{GHC.Tuple.(,)}> ipv17_s1iDb ipv18_s1iCY -> select ipv18_s1iCY (<{GHC.Tuple.(,)}> ds25_s1iD2 ds26_s1iDx -> select ds25_s1iD2 (FRP.Fursuit.Signal.P ref2_s1iD7 ds27_s1iDU ds28_s1iDX -> select ref2_s1iD7 (GHC.STRef.STRef var#2_s1iDa -> let !s2#2_s1iDf = writeMutVar# var#2_s1iDa MainGenGui.lvl28 ipv17_s1iDb, !ds29_s1iSt = MainGenGui.lvl21 MainGenGui.lvl8 ds21_s1iDd <{s'2_s1iDe}> s2#2_s1iDf in select ds29_s1iSt (<{GHC.Tuple.(,)}> ipv19_s1iDo ipv20_s1iDj -> select ipv20_s1iDj (<{GHC.Tuple.(,)}> a8_s1iDn <{s'3_s1iDs}> -> let !ds30_s1iSr = FRP.Fursuit.Signal.removableSink1 MainGenGui.a1 a8_s1iDn ipv19_s1iDo in select ds30_s1iSr (<{GHC.Tuple.(,)}> ipv21_s1iDt ipv22_s1iRP -> let !ds31_s1iSq = MainGenGui.$fToInputsTest_$ctoInput Control.Monad.IO.Class.$fMonadIOIO ds21_s1iDd <{s'3_s1iDs}> ipv21_s1iDt in select ds31_s1iSq (<{GHC.Tuple.(,)}> ipv23_s1iDE ipv24_s1iDy -> let !ds32_s1iSK = <{MainGenGui.$fToInputsTest'_$ctoInput}> Control.Monad.IO.Class.$fMonadIOIO ds26_s1iDx (MainGenGui.main2$24 ipv24_s1iDy) ipv23_s1iDE in select ds32_s1iSK (<{GHC.Tuple.(,)}> ipv25_s1iDQ ipv26_s1iEC -> select ds22_s1iDI (GHC.STRef.STRef ww6_s1iDO -> select ds23_s1iDL (GHC.STRef.STRef ww8_s1iDP -> let !ds33_s1iSH = FRP.Fursuit.Pipe.$wa1 var#1_s1iCR ww6_s1iDO ww8_s1iDP MainGenGui.lvl12 ipv25_s1iDQ in select ds33_s1iSH (<{GHC.Tuple.(,)}> ipv27_s1iE2 ipv28_s1iRK -> select ds27_s1iDU (GHC.STRef.STRef ww9_s1iE0 -> select ds28_s1iDX (GHC.STRef.STRef ww11_s1iE1 -> let !ds34_s1iSE = FRP.Fursuit.Pipe.$wa1 var#2_s1iDa ww9_s1iE0 ww11_s1iE1 MainGenGui.lvl18 ipv27_s1iE2 in select ds34_s1iSE (<{GHC.Tuple.(,)}> ipv29_s1iEx ipv30_s1iRL -> let t_s1iEb = MainGenGui.main2$25 ipv24_s1iDy, a9_s1iEv = MainGenGui.main2$53 a9_s1iEv ds8_s1iBb, !sat_s1iRF_s1iRF = Gui.Generic.Types.elems t_s1iEb, !ds35_s1iSP = a9_s1iEv sat_s1iRF_s1iRF ipv29_s1iEx in select ds35_s1iSP (<{GHC.Tuple.(,)}> ipv31_s1iF3 ipv32_s1iRH -> let t2_s1iEH = MainGenGui.main2$26 ipv26_s1iEC, a10_s1iF1 = MainGenGui.main2$54 a10_s1iF1 ds8_s1iBb, !sat_s1iRz_s1iRz = Gui.Generic.Types.elems t2_s1iEH, !ds36_s1iSW = a10_s1iF1 sat_s1iRz_s1iRz ipv31_s1iF3 in select ds36_s1iSW (<{GHC.Tuple.(,)}> ipv33_s1iF8 ipv34_s1iRB -> let !sat_s1iRy_s1iRy = Gui.Generic.Types.signal t_s1iEb, !ds37_s1iSV = FRP.Fursuit.Signal.removableSink1 MainGenGui.a2 sat_s1iRy_s1iRy ipv33_s1iF8 in select ds37_s1iSV (<{GHC.Tuple.(,)}> ipv35_s1iFd ipv36_s1iRC -> let !sat_s1iRx_s1iRx = Gui.Generic.Types.signal t2_s1iEH, !ds38_s1iSU = FRP.Fursuit.Signal.removableSink1 MainGenGui.a3 sat_s1iRx_s1iRx ipv35_s1iFd in select ds38_s1iSU (<{GHC.Tuple.(,)}> ipv37_s1iFh ipv38_s1iRD -> <{GHC.Tuple.(,)}> ipv37_s1iFh (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (MainGenGui.main2$27 ipv26_s1iEC)))))))))))))))))))))))))))))))))))))
MainGenGui.main2$51 a112_s1iBO ds8_s1iBb ds14_s1iBy eta3_s1iBA = select ds14_s1iBy (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s1iBA <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1iBD ys_s1iBM -> select y_s1iBD (GHC.Ptr.Ptr ds16_s1iBH -> let !wild7_s1iSg = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds16_s1iBH ds8_s1iBb eta3_s1iBA in select wild7_s1iSg (<{GHC.Tuple.(,)}> ds17_s1iBN ds18_s1iRT -> a112_s1iBO ys_s1iBM ds17_s1iBN)))
MainGenGui.main2$52 a7_s1iCv ds8_s1iBb ds18_s1iCf eta3_s1iCh = select ds18_s1iCf (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s1iCh <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1iCk ys_s1iCt -> select y_s1iCk (GHC.Ptr.Ptr ds20_s1iCo -> let !wild9_s1iSn = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds20_s1iCo ds8_s1iBb eta3_s1iCh in select wild9_s1iSn (<{GHC.Tuple.(,)}> ds21_s1iCu ds22_s1iRN -> a7_s1iCv ys_s1iCt ds21_s1iCu)))
MainGenGui.main2$53 a9_s1iEv ds8_s1iBb ds35_s1iEf eta3_s1iEh = select ds35_s1iEf (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s1iEh <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1iEk ys_s1iEt -> select y_s1iEk (GHC.Ptr.Ptr ds37_s1iEo -> let !wild16_s1iSM = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds37_s1iEo ds8_s1iBb eta3_s1iEh in select wild16_s1iSM (<{GHC.Tuple.(,)}> ds38_s1iEu ds39_s1iRG -> a9_s1iEv ys_s1iEt ds38_s1iEu)))
MainGenGui.main2$54 a10_s1iF1 ds8_s1iBb ds36_s1iEL eta3_s1iEN = select ds36_s1iEL (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s1iEN <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1iEQ ys_s1iEZ -> select y_s1iEQ (GHC.Ptr.Ptr ds38_s1iEU -> let !wild16_s1iSR = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds38_s1iEU ds8_s1iBb eta3_s1iEN in select wild16_s1iSR (<{GHC.Tuple.(,)}> ds39_s1iF0 ds40_s1iRA -> a10_s1iF1 ys_s1iEZ ds39_s1iF0)))
MainGenGui.main2$24 ipv24_s1iDy = select ipv24_s1iDy (<{GHC.Tuple.(,)}> a9_s1iRQ <{s'4_s1iDC}> -> <{s'4_s1iDC}>)
MainGenGui.main2$25 ipv24_s1iDy = select ipv24_s1iDy (<{GHC.Tuple.(,)}> a9_s1iEa <{s'4_s1iRM}> -> a9_s1iEa)
MainGenGui.main2$26 ipv26_s1iEC = select ipv26_s1iEC (<{GHC.Tuple.(,)}> a10_s1iEG <{s'4_s1iRI}> -> a10_s1iEG)
MainGenGui.main2$27 ipv26_s1iEC = select ipv26_s1iEC (<{GHC.Tuple.(,)}> a11_s1iRE <{s'4_s1iFl}> -> <{s'4_s1iFl}>)
MainGenGui.mainBody1 eta_s1iGr s_s1iGk = select MainGenGui.main3 (GHC.Ptr.Ptr ds1_s1iGd -> let !tpl_s1iTa = MainGenGui.main_x, !wild_s1iT9 = ffi_wrapper3 jsToString ds1_s1iGd GHC.Prim.realWorld# in select wild_s1iT9 (<{GHC.Tuple.(,)}> ds2_s1iT8 ds3_s1iGj -> let !wild1_s1iT7 = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_s1iGj s_s1iGk in select wild1_s1iT7 (<{GHC.Tuple.(,)}> ds4_s1iGs ds5_s1iGp -> MainGenGui.main2 (GHC.Ptr.Ptr ds5_s1iGp) eta_s1iGr ds4_s1iGs)))
MainGenGui.mainBody eta_B2_B2 eta_B1_B1 = MainGenGui.mainBody1 eta_B2_B2 eta_B1_B1
MainGenGui.main1 s_s1iGF = select MainGenGui.main3 (GHC.Ptr.Ptr ds1_s1iGy -> let !tpl_s1iTk = MainGenGui.main_x, !wild_s1iTj = ffi_wrapper3 jsToString ds1_s1iGy GHC.Prim.realWorld# in select wild_s1iTj (<{GHC.Tuple.(,)}> ds2_s1iTi ds3_s1iGE -> let !wild1_s1iTh = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_s1iGE s_s1iGF in select wild1_s1iTh (<{GHC.Tuple.(,)}> ds4_s1iGM ds5_s1iGK -> let !ds6_s1iTn = MainGenGui.main2 (GHC.Ptr.Ptr ds5_s1iGK) MainGenGui.DummyState ds4_s1iGM in select ds6_s1iTn (<{GHC.Tuple.(,)}> ipv_s1iGQ ipv1_s1iGR -> <{GHC.Tuple.(,)}> ipv_s1iGQ (MainGenGui.main1$28 ipv1_s1iGR)))))
MainGenGui.main1$28 ipv1_s1iGR = select ipv1_s1iGR (<{GHC.Tuple.(,)}> a5_s1iGV ds7_s1iTg -> a5_s1iGV)
MainGenGui.main eta_B1_B1 = MainGenGui.main1 eta_B1_B1
MainGenGui.$fTypeableABCD_ds =: GHC.CString.unpackCString# "main"
<{MainGenGui.$fTypeableTest'_wild}> =: Data.Typeable.Internal.TyCon (ghcsapl_num64# -767406476 1560444421) (ghcsapl_num64# 582878131 -997573361) MainGenGui.$fTypeableABCD_ds MainGenGui.$fDatatypeABCD2 <{MainGenGui.$fConstructorTest'1}>
<{MainGenGui.$fTypeableTest'1}> =: Data.Typeable.Internal.TypeRep (ghcsapl_num64# -767406476 1560444421) (ghcsapl_num64# 582878131 -997573361) <{MainGenGui.$fTypeableTest'_wild}> <{GHC.Types.[]}>
<{MainGenGui.$fTypeableTest'_$ctypeOf}> ds_s1iGY = <{MainGenGui.$fTypeableTest'1}>
<{MainGenGui.$fTypeableTest'}> =: <{MainGenGui.$fTypeableTest'_$ctypeOf}>
MainGenGui.$fTypeableTest_wild =: Data.Typeable.Internal.TyCon (ghcsapl_num64# -1370491030 166131983) (ghcsapl_num64# -2043283415 -833181457) MainGenGui.$fTypeableABCD_ds MainGenGui.$fDatatypeABCD2 MainGenGui.$fConstructorTest1
MainGenGui.$fTypeableTest1 =: Data.Typeable.Internal.TypeRep (ghcsapl_num64# -1370491030 166131983) (ghcsapl_num64# -2043283415 -833181457) MainGenGui.$fTypeableTest_wild <{GHC.Types.[]}>
MainGenGui.$fTypeableTest_$ctypeOf ds_s1iH0 = MainGenGui.$fTypeableTest1
MainGenGui.$fTypeableTest =: MainGenGui.$fTypeableTest_$ctypeOf
MainGenGui.$fTypeableABCD_wild =: Data.Typeable.Internal.TyCon (ghcsapl_num64# 1108455572 1415389447) (ghcsapl_num64# -235507540 -137953726) MainGenGui.$fTypeableABCD_ds MainGenGui.$fDatatypeABCD2 MainGenGui.$fDatatypeABCD3
MainGenGui.$fTypeableABCD1 =: Data.Typeable.Internal.TypeRep (ghcsapl_num64# 1108455572 1415389447) (ghcsapl_num64# -235507540 -137953726) MainGenGui.$fTypeableABCD_wild <{GHC.Types.[]}>
MainGenGui.$fTypeableABCD_$ctypeOf ds_s1iH2 = MainGenGui.$fTypeableABCD1
MainGenGui.$fTypeableABCD =: MainGenGui.$fTypeableABCD_$ctypeOf
<{MainGenGui.$fTypeableABCD'_wild}> =: Data.Typeable.Internal.TyCon (ghcsapl_num64# 1685999128 796250783) (ghcsapl_num64# -2090295474 -942706604) MainGenGui.$fTypeableABCD_ds MainGenGui.$fDatatypeABCD2 <{MainGenGui.$fDatatypeABCD'2}>
<{MainGenGui.$fTypeableABCD'1}> =: Data.Typeable.Internal.TypeRep (ghcsapl_num64# 1685999128 796250783) (ghcsapl_num64# -2090295474 -942706604) <{MainGenGui.$fTypeableABCD'_wild}> <{GHC.Types.[]}>
<{MainGenGui.$fTypeableABCD'_$ctypeOf}> ds_s1iH4 = <{MainGenGui.$fTypeableABCD'1}>
<{MainGenGui.$fTypeableABCD'}> =: <{MainGenGui.$fTypeableABCD'_$ctypeOf}>