:: Gui.Generic.Classes.GToInputAlt = <{Gui.Generic.Classes.D:GToInputAlt}> a1 a2
:: Gui.Generic.Classes.Alt = Gui.Generic.Classes.Alt a1 a2 a3
Gui.Generic.Classes.$p1GToInputAlt tpl_s114s_s114s = select tpl_s114s_s114s (<{Gui.Generic.Classes.D:GToInputAlt}> tpl_s114w_s114w tpl_s11E3_s11E3 -> tpl_s114w_s114w)
Gui.Generic.Classes.gToInputAlt tpl_s114y_s114y = select tpl_s114y_s114y (<{Gui.Generic.Classes.D:GToInputAlt}> tpl_s11E8_s11E8 tpl_s114C_s114C -> tpl_s114C_s114C)
Gui.Generic.Classes.gSelAlt tpl_s114E_s114E = tpl_s114E_s114E
Gui.Generic.Classes.gToInput tpl_s114G_s114G = tpl_s114G_s114G
Gui.Generic.Classes.toInput tpl_s114I_s114I = tpl_s114I_s114I
Gui.Generic.Classes.$gdmtoInput $dToInput_s115M $dMonadIO_s114W $dGeneric_s114P $dGToInput_s115C eta_s115z = let $dMonad_s114X = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s114W in Gui.Generic.Classes.$gdmtoInput$65 (Gui.Generic.Classes.$gdmtoInput$64 (Gui.Generic.Classes.$gdmtoInput$63 $dGeneric_s114P) (GHC.Base.return $dMonad_s114X)) (<{GHC.Base.>>=}> $dMonad_s114X) ($dGToInput_s115C $dMonadIO_s114W Data.Maybe.Nothing (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure (Gui.Generic.Classes.$gdmtoInput$66 (GHC.Generics.from $dGeneric_s114P))) eta_s115z))
Gui.Generic.Classes.$gdmtoInput$63 $dGeneric_s114P eta_B1_B1 = Data.Maybe.$fFunctorMaybe_$cfmap (GHC.Generics.to $dGeneric_s114P) eta_B1_B1
Gui.Generic.Classes.$gdmtoInput$64 a9_s114S lvl29_s114Z ds_s1152 = lvl29_s114Z (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$gdmtoInput$6 a9_s114S ds_s1152) (Gui.Generic.Classes.$gdmtoInput$5 ds_s1152))
Gui.Generic.Classes.$gdmtoInput$65 lvl30_s115m lvl31_s115G m_s115E eta1_s115I = lvl31_s115G (m_s115E eta1_s115I) lvl30_s115m
Gui.Generic.Classes.$gdmtoInput$66 ds_s115p ds1_s115r = select ds1_s115r (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a10_s115u -> Data.Maybe.Just (ds_s115p a10_s115u))
Gui.Generic.Classes.$gdmtoInput$5 ds_s1152 = select ds_s1152 (<{GHC.Tuple.(,)}> a10_s11Em <{s'_s115h}> -> <{s'_s115h}>)
Gui.Generic.Classes.$gdmtoInput$6 a9_s114S ds_s1152 = select ds_s1152 (<{GHC.Tuple.(,)}> a10_s1156 <{s'_s11Ej}> -> select a10_s1156 (Gui.Generic.Types.Input ma_s115a e_s115c -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure a9_s114S) ma_s115a) e_s115c))
Gui.Generic.Classes.unBT1 ds_s115O = ds_s115O
Gui.Generic.Classes.unBT eta_B1_B1 = Gui.Generic.Classes.unBT1 eta_B1_B1
Gui.Generic.Classes.altInp ds_s115Q = select ds_s115Q (Gui.Generic.Classes.Alt ds1_s11Eu ds2_s11Ev ds3_s115V -> ds3_s115V)
Gui.Generic.Classes.altSel ds_s115X = select ds_s115X (Gui.Generic.Classes.Alt ds1_s11EB ds2_s1162 ds3_s11EC -> ds2_s1162)
Gui.Generic.Classes.altText ds_s1164 = select ds_s1164 (Gui.Generic.Classes.Alt ds1_s1169 ds2_s11EI ds3_s11EJ -> ds1_s1169)
Gui.Generic.Classes.lvl =: Data.Maybe.Just GHC.Generics.U1
Gui.Generic.Classes.lvl1 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl
Gui.Generic.Classes.lvl2 =: Gui.Generic.Types.Input Gui.Generic.Classes.lvl1 <{GHC.Types.[]}>
Gui.Generic.Classes.$fGToInputsU2 $dMonadIO_s116e eta_s116i eta1_s116j eta2_s116g = let !sat_s11ET_s11ET = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s116e in GHC.Base.return sat_s11ET_s11ET (<{GHC.Tuple.(,)}> Gui.Generic.Classes.lvl2 eta2_s116g)
Gui.Generic.Classes.$fGToInputsU1_$cgToInput eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsU2 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fGToInputsU1 =: Gui.Generic.Classes.$fGToInputsU2
Gui.Generic.Classes.lvl3 ds1_s116l = select ds1_s116l (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s116o -> Data.Maybe.Just a9_s116o)
Gui.Generic.Classes.lvl4 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl3
Gui.Generic.Classes.lvl5 ds1_s116q = select ds1_s116q (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s116t -> Data.Maybe.Just a9_s116t)
Gui.Generic.Classes.lvl6 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl5
Gui.Generic.Classes.$fGToInputsK1_$cgToInput $dToInput_s116C $dMonadIO_s116z eta_s116G eta1_s116A = let $dMonad_s116J = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s116z in Gui.Generic.Classes.$fGToInputsK1_$cgToInput$68 (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$67 $dMonadIO_s116z (Gui.Generic.Utils.defElems $dMonadIO_s116z eta_s116G) (GHC.Base.return $dMonad_s116J) (<{GHC.Base.>>=}> $dMonad_s116J) (<{GHC.Base.>>=}> $dMonad_s116J)) (<{GHC.Base.>>=}> $dMonad_s116J) ($dToInput_s116C $dMonadIO_s116z (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl4 eta1_s116A))
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$67 $dMonadIO_s116z lvl28_s116H lvl29_s116L lvl30_s116N lvl31_s116P ds_s116T = lvl31_s116P (lvl28_s116H (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$8 ds_s116T)) (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$69 $dMonadIO_s116z (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$7 ds_s116T) lvl29_s116L lvl30_s116N)
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$69 $dMonadIO_s116z e_s116Y lvl29_s116L lvl30_s116N ds1_s1178 = let div_s117d = Gui.Generic.Classes.$fGToInputsK1_$cgToInput$9 ds1_s1178 in lvl30_s116N (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s116z (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$71 div_s117d e_s116Y) (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$11 ds1_s1178)) (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$70 lvl29_s116L (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$10 div_s117d e_s116Y))
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$70 lvl29_s116L lvl33_s117l ds2_s118d = lvl29_s116L (<{GHC.Tuple.(,)}> lvl33_s117l (Gui.Generic.Classes.$fGToInputsK1_$cgToInput$12 ds2_s118d))
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$71 div_s117d e_s116Y eta2_s117s = select e_s116Y (Gui.Generic.Types.Input ds2_s11F6 ds3_s117q -> select ds3_s117q (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta2_s117s <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s117v ys_s1181 -> select y_s117v (GHC.Ptr.Ptr ds5_s117B -> select div_s117d (GHC.Ptr.Ptr ds7_s117C -> let !wild2_s11Fs = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds5_s117B ds7_s117C eta2_s117s in select wild2_s11Fs (<{GHC.Tuple.(,)}> ds8_s1182 ds9_s11F8 -> Gui.Generic.Classes.$fGToInputsK1_$cgToInput$1 ds7_s117C ys_s1181 ds8_s1182)))))
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$68 lvl32_s118n lvl33_s118p m_s116E eta2_s118r = lvl33_s118p (m_s116E eta2_s118r) lvl32_s118n
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$7 ds_s116T = select ds_s116T (<{GHC.Tuple.(,)}> a9_s116X <{s'_s11Fj}> -> a9_s116X)
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$8 ds_s116T = select ds_s116T (<{GHC.Tuple.(,)}> a9_s11Fg <{s'_s1172}> -> <{s'_s1172}>)
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$9 ds1_s1178 = select ds1_s1178 (<{GHC.Tuple.(,)}> a9_s117c <{s'_s11Fh}> -> a9_s117c)
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$10 div_s117d e_s116Y = select e_s116Y (Gui.Generic.Types.Input ds2_s117i ds3_s11Fd -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl6 ds2_s117i) (<{GHC.Types.:}> div_s117d <{GHC.Types.[]}>))
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$11 ds1_s1178 = select ds1_s1178 (<{GHC.Tuple.(,)}> a9_s11Fb <{s'_s1187}> -> <{s'_s1187}>)
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$12 ds2_s118d = select ds2_s118d (<{GHC.Tuple.(,)}> a9_s11Fc <{s'_s118h}> -> <{s'_s118h}>)
Gui.Generic.Classes.$fGToInputsK1_$cgToInput$1 ds7_s117C ds10_s117K eta3_s117M = select ds10_s117K (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s117M <{GHC.Tuple.()}>) (<{GHC.Types.:}> y1_s117P ys1_s117Y -> select y1_s117P (GHC.Ptr.Ptr ds12_s117T -> let !wild4_s11Fv = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds12_s117T ds7_s117C eta3_s117M in select wild4_s11Fv (<{GHC.Tuple.(,)}> ds13_s117Z ds14_s11F7 -> Gui.Generic.Classes.$fGToInputsK1_$cgToInput$1 ds7_s117C ys1_s117Y ds13_s117Z)))
Gui.Generic.Classes.$fGToInputsK1 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsK1_$cgToInput eta_B1_B1
<{Gui.Generic.Classes.$fGToInputs:*:9}> ds1_s118w = select ds1_s118w (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s118z -> Data.Maybe.Just (<{Gui.Generic.Classes.$fGToInputs:*:9$13}> a9_s118z))
<{Gui.Generic.Classes.$fGToInputs:*:9$13}> a9_s118z = select a9_s118z (<{GHC.Generics.:*:}> f_s118D g_s118E -> <{GHC.Tuple.(,)}> f_s118D g_s118E)
<{Gui.Generic.Classes.$fGToInputs:*:7}> ds1_s118H = select ds1_s118H (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s118K -> Data.Maybe.Just (Data.Tuple.fst a9_s118K))
<{Gui.Generic.Classes.$fGToInputs:*:5}> ds1_s118N = select ds1_s118N (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s118Q -> Data.Maybe.Just (Data.Tuple.snd a9_s118Q))
<{Gui.Generic.Classes.$fGToInputs:*:8}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Classes.$fGToInputs:*:9}>
<{Gui.Generic.Classes.$fGToInputs:*:4}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Classes.$fGToInputs:*:5}>
<{Gui.Generic.Classes.$fGToInputs:*:6}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Classes.$fGToInputs:*:7}>
<{Gui.Generic.Classes.$fGToInputs:*:3}> ds1_s118T = select ds1_s118T (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s118W -> Data.Maybe.Just (<{Gui.Generic.Classes.$fGToInputs:*:3$72}> a9_s118W))
<{Gui.Generic.Classes.$fGToInputs:*:3$72}> a9_s118W eta_B1_B1 = <{GHC.Generics.:*:}> a9_s118W eta_B1_B1
<{Gui.Generic.Classes.$fGToInputs:*:2}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Classes.$fGToInputs:*:3}>
<{Gui.Generic.Classes.$fGToInputs:*:1}> =: FRP.Fursuit.Signal.Pure <{Control.Applicative.$fApplicativeMaybe_$c<*>}>
<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> $dGToInput_s119a $dGToInput1_s119f $dMonadIO_s1197 eta_s1198 eta1_s1194 = let un_s1195 = FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:8}> eta1_s1194, $dMonad_s119j = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s1197 in <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$74}> (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$73}> ($dGToInput1_s119f $dMonadIO_s1197 eta_s1198 (FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:4}> un_s1195)) (GHC.Base.return $dMonad_s119j) (<{GHC.Base.>>=}> $dMonad_s119j)) (<{GHC.Base.>>=}> $dMonad_s119j) ($dGToInput_s119a $dMonadIO_s1197 eta_s1198 (FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:6}> un_s1195))
<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$73}> lvl28_s119h lvl29_s119l lvl30_s119n ds_s119r = lvl30_s119n (lvl28_s119h (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$15}> ds_s119r)) (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$75}> lvl29_s119l (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$14}> ds_s119r))
<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$75}> lvl29_s119l lvl32_s119C ds1_s119O = lvl29_s119l (<{GHC.Tuple.(,)}> (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$17}> ds1_s119O lvl32_s119C) (<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$16}> ds1_s119O))
<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$74}> lvl31_s11ae lvl32_s11ag m_s119c eta2_s11ai = lvl32_s11ag (m_s119c eta2_s11ai) lvl31_s11ae
<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$14}> ds_s119r = select ds_s119r (<{GHC.Tuple.(,)}> a9_s119v <{s'_s11G2}> -> select a9_s119v (Gui.Generic.Types.Input ma_s119z e_s119B -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:2}> ma_s119z) e_s119B))
<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$15}> ds_s119r = select ds_s119r (<{GHC.Tuple.(,)}> a9_s11FZ <{s'_s119G}> -> <{s'_s119G}>)
<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$16}> ds1_s119O = select ds1_s119O (<{GHC.Tuple.(,)}> a9_s11G0 <{s'_s11a8}> -> <{s'_s11a8}>)
<{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput$17}> ds1_s119O lvl32_s119C = select lvl32_s119C (Gui.Generic.Types.Input a9_s119W es_s11a1 -> select ds1_s119O (<{GHC.Tuple.(,)}> a10_s119S <{s'_s11FW}> -> select a10_s119S (Gui.Generic.Types.Input b_s119Y <{es'_s11a2}> -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App <{Gui.Generic.Classes.$fGToInputs:*:1}> a9_s119W) b_s119Y) (<{GHC.Base.++}> es_s11a1 <{es'_s11a2}>))))
<{Gui.Generic.Classes.$fGToInputs:*:}> eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:*:_$cgToInput}> eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fGToInputsM15 ds1_s11an = select ds1_s11an (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11aq -> Data.Maybe.Just a9_s11aq)
Gui.Generic.Classes.$fGToInputsM14 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM15
Gui.Generic.Classes.$fGToInputsM13 ds1_s11as = select ds1_s11as (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11av -> Data.Maybe.Just a9_s11av)
Gui.Generic.Classes.$fGToInputsM12 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM13
Gui.Generic.Classes.$fGToInputsM11_$cgToInput $dGToInput_s11aF $dMonadIO_s11aB eta_s11aC eta1_s11aD = let $dMonad_s11aJ = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s11aB in Gui.Generic.Classes.$fGToInputsM11_$cgToInput$77 (Gui.Generic.Classes.$fGToInputsM11_$cgToInput$76 (GHC.Base.return $dMonad_s11aJ)) (<{GHC.Base.>>=}> $dMonad_s11aJ) ($dGToInput_s11aF $dMonadIO_s11aB eta_s11aC (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM14 eta1_s11aD))
Gui.Generic.Classes.$fGToInputsM11_$cgToInput$76 lvl28_s11aL ds_s11aO = lvl28_s11aL (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$fGToInputsM11_$cgToInput$19 ds_s11aO) (Gui.Generic.Classes.$fGToInputsM11_$cgToInput$18 ds_s11aO))
Gui.Generic.Classes.$fGToInputsM11_$cgToInput$77 lvl29_s11b8 lvl30_s11ba m_s11aH eta2_s11bc = lvl30_s11ba (m_s11aH eta2_s11bc) lvl29_s11b8
Gui.Generic.Classes.$fGToInputsM11_$cgToInput$18 ds_s11aO = select ds_s11aO (<{GHC.Tuple.(,)}> a9_s11Gm <{s'_s11b3}> -> <{s'_s11b3}>)
Gui.Generic.Classes.$fGToInputsM11_$cgToInput$19 ds_s11aO = select ds_s11aO (<{GHC.Tuple.(,)}> a9_s11aS <{s'_s11Gk}> -> select a9_s11aS (Gui.Generic.Types.Input ma_s11aW e_s11aY -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM12 ma_s11aW) e_s11aY))
Gui.Generic.Classes.$fGToInputsM11 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsM11_$cgToInput eta_B1_B1
Gui.Generic.Classes.$fGToInputsM9 ds1_s11bh = select ds1_s11bh (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11bk -> Data.Maybe.Just a9_s11bk)
Gui.Generic.Classes.$fGToInputsM8 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM9
Gui.Generic.Classes.$fGToInputsM7 ds1_s11bm = select ds1_s11bm (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11bp -> Data.Maybe.Just a9_s11bp)
Gui.Generic.Classes.$fGToInputsM6 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM7
Gui.Generic.Classes.$w$cgToInput1 w_s11bz w1_s11bv w2_s11bw w3_s11bx = let $dMonad_s11bD = Control.Monad.IO.Class.$p1MonadIO w1_s11bv in Gui.Generic.Classes.$w$cgToInput1$79 (Gui.Generic.Classes.$w$cgToInput1$78 (GHC.Base.return $dMonad_s11bD)) (<{GHC.Base.>>=}> $dMonad_s11bD) (w_s11bz w1_s11bv w2_s11bw (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM8 w3_s11bx))
Gui.Generic.Classes.$w$cgToInput1$78 lvl28_s11bF ds_s11bI = lvl28_s11bF (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInput1$21 ds_s11bI) (Gui.Generic.Classes.$w$cgToInput1$20 ds_s11bI))
Gui.Generic.Classes.$w$cgToInput1$79 lvl29_s11c2 lvl30_s11c4 m_s11bB eta_s11c6 = lvl30_s11c4 (m_s11bB eta_s11c6) lvl29_s11c2
Gui.Generic.Classes.$w$cgToInput1$20 ds_s11bI = select ds_s11bI (<{GHC.Tuple.(,)}> a9_s11GC <{s'_s11bX}> -> <{s'_s11bX}>)
Gui.Generic.Classes.$w$cgToInput1$21 ds_s11bI = select ds_s11bI (<{GHC.Tuple.(,)}> a9_s11bM <{s'_s11GA}> -> select a9_s11bM (Gui.Generic.Types.Input ma_s11bQ e_s11bS -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM6 ma_s11bQ) e_s11bS))
Gui.Generic.Classes.a w_s11cf w1_s11cj w2_s11cg w3_s11ch w4_s11ci = Gui.Generic.Classes.$w$cgToInput1 w_s11cf w2_s11cg w3_s11ch w4_s11ci
Gui.Generic.Classes.$fGToInputsM10_$cgToInput eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.a eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fGToInputsM10 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsM10_$cgToInput eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fGToInputsM5 ds1_s11cl = select ds1_s11cl (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11co -> Data.Maybe.Just a9_s11co)
Gui.Generic.Classes.$fGToInputsM4 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM5
Gui.Generic.Classes.$fGToInputsM3 ds1_s11cq = select ds1_s11cq (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11ct -> Data.Maybe.Just a9_s11ct)
Gui.Generic.Classes.$fGToInputsM2 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM3
Gui.Generic.Classes.$w$cgToInput w_s11cU w1_s11cB w2_s11cz w3_s11cS = let $dMonad_s11cZ = Control.Monad.IO.Class.$p1MonadIO w2_s11cz in Gui.Generic.Classes.$w$cgToInput$81 (Gui.Generic.Classes.$w$cgToInput$80 (GHC.Base.return $dMonad_s11cZ)) (<{GHC.Base.>>=}> $dMonad_s11cZ) (Gui.Generic.Classes.$w$cgToInput$125 w1_s11cB w2_s11cz w3_s11cS w_s11cU)
Gui.Generic.Classes.$w$cgToInput$125 w1_s11cB w2_s11cz w3_s11cS w_s11cU = w_s11cU w2_s11cz (Data.Maybe.Just (Gui.Generic.Types.InputSettings (Gui.Generic.Classes.$w$cgToInput$126 w1_s11cB) Data.Maybe.Nothing Data.Maybe.Nothing Data.Maybe.Nothing <{GHC.Types.[]}>)) (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM4 w3_s11cS)
Gui.Generic.Classes.$w$cgToInput$126 w1_s11cB = let !x3_s11cC = w1_s11cB GHC.Err.undefined, !ds_s11GY = Javascript.Base.Types.FakePtr x3_s11cC in select ds_s11GY (GHC.Ptr.Ptr ds1_s11cH -> let !tpl_s11GX = x3_s11cC, !wild_s11GW = ffi_wrapper3 jsToString ds1_s11cH GHC.Prim.realWorld# in select wild_s11GW (<{GHC.Tuple.(,)}> ds2_s11GQ ds3_s11cM -> GHC.Ptr.Ptr ds3_s11cM))
Gui.Generic.Classes.$w$cgToInput$80 lvl28_s11d1 ds_s11d4 = lvl28_s11d1 (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInput$23 ds_s11d4) (Gui.Generic.Classes.$w$cgToInput$22 ds_s11d4))
Gui.Generic.Classes.$w$cgToInput$81 lvl29_s11do lvl30_s11dq m_s11cX eta_s11ds = lvl30_s11dq (m_s11cX eta_s11ds) lvl29_s11do
Gui.Generic.Classes.$w$cgToInput$22 ds_s11d4 = select ds_s11d4 (<{GHC.Tuple.(,)}> a9_s11GV <{s'_s11dj}> -> <{s'_s11dj}>)
Gui.Generic.Classes.$w$cgToInput$23 ds_s11d4 = select ds_s11d4 (<{GHC.Tuple.(,)}> a9_s11d8 <{s'_s11GT}> -> select a9_s11d8 (Gui.Generic.Types.Input ma_s11dc e_s11de -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.$fGToInputsM2 ma_s11dc) e_s11de))
Gui.Generic.Classes.a1 w_s11dB w1_s11dC w2_s11dD w3_s11dF w4_s11dE = Gui.Generic.Classes.$w$cgToInput w_s11dB w1_s11dC w2_s11dD w4_s11dE
Gui.Generic.Classes.$fGToInputsM1_$cgToInput eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.a1 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fGToInputsM1 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fGToInputsM1_$cgToInput eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fMonoidBT1 ds_s11dI ds1_s11dJ = <{GHC.Base.++}> ds_s11dI ds1_s11dJ
Gui.Generic.Classes.$fMonoidBT_$cmappend eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.$fMonoidBT1 eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fMonoidBT2 =: <{GHC.Types.:}> false <{GHC.Types.[]}>
Gui.Generic.Classes.$fMonoidBT_$cmempty =: Gui.Generic.Classes.$fMonoidBT2
Gui.Generic.Classes.$fMonoidBT_go ds_s11dL = select ds_s11dL (<{GHC.Types.[]}>  -> Gui.Generic.Classes.$fMonoidBT2) (<{GHC.Types.:}> y_s11dP ys_s11dQ -> <{GHC.Base.++}> y_s11dP (Gui.Generic.Classes.$fMonoidBT_go ys_s11dQ))
Gui.Generic.Classes.$fMonoidBT_$cmconcat eta_B1_B1 = Gui.Generic.Classes.$fMonoidBT_go eta_B1_B1
Gui.Generic.Classes.$fMonoidBT =: <{Data.Monoid.D:Monoid}> Gui.Generic.Classes.$fMonoidBT2 Gui.Generic.Classes.$fMonoidBT1 Gui.Generic.Classes.$fMonoidBT_go
Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt ma_s11dT = <{GHC.Types.:}> (Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt$24 ma_s11dT) <{GHC.Types.[]}>
Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt$24 ma_s11dT = select ma_s11dT (Data.Maybe.Nothing  -> false) (Data.Maybe.Just ipv_s11Hj -> true)
Gui.Generic.Classes.$fGSelAltM10 =: Gui.Generic.Classes.$fGSelAltM10_$cgSelAlt
Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt ma_s11dY = <{GHC.Types.:}> (Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt$25 ma_s11dY) <{GHC.Types.[]}>
Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt$25 ma_s11dY = select ma_s11dY (Data.Maybe.Nothing  -> false) (Data.Maybe.Just ipv_s11Ho -> true)
Gui.Generic.Classes.$fGSelAltM1 =: Gui.Generic.Classes.$fGSelAltM1_$cgSelAlt
<{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> $dGSelAlt_s11ee $dGSelAlt1_s11ep ma_s11e5 = let !sat_s11Hs_s11Hs = $dGSelAlt_s11ee (<{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt$26}> ma_s11e5) in <{GHC.Base.++}> sat_s11Hs_s11Hs ($dGSelAlt1_s11ep (<{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt$27}> ma_s11e5))
<{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt$26}> ma_s11e5 = select ma_s11e5 (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just x3_s11e8 -> select x3_s11e8 (GHC.Generics.L1 r_s11eb -> Data.Maybe.Just r_s11eb) (GHC.Generics.R1 ipv_s11Ht -> Data.Maybe.Nothing))
<{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt$27}> ma_s11e5 = select ma_s11e5 (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just x3_s11ej -> select x3_s11ej (GHC.Generics.L1 ipv_s11Hv -> Data.Maybe.Nothing) (GHC.Generics.R1 r_s11en -> Data.Maybe.Just r_s11en))
<{Gui.Generic.Classes.$fGSelAlt:+:}> eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.x =: GHC.CString.unpackCString# "<li />"
Gui.Generic.Classes.lvl7 =: let !ds_s11HF = Javascript.Base.Types.FakePtr Gui.Generic.Classes.x in select ds_s11HF (GHC.Ptr.Ptr ds1_s11ew -> let !tpl_s11HE = Gui.Generic.Classes.x, !wild_s11HD = ffi_wrapper3 jsToString ds1_s11ew GHC.Prim.realWorld# in select wild_s11HD (<{GHC.Tuple.(,)}> ds2_s11HC ds3_s11eB -> GHC.Ptr.Ptr ds3_s11eB))
Gui.Generic.Classes.toIndex ds_s11eK ds1_s11eE = select ds1_s11eE (<{GHC.Types.[]}>  -> Data.Maybe.Nothing) (<{GHC.Types.:}> c_s11eI cs_s11eQ -> if c_s11eI (Data.Maybe.Just ds_s11eK) (Gui.Generic.Classes.toIndex (Gui.Generic.Classes.toIndex$28 ds_s11eK) cs_s11eQ))
Gui.Generic.Classes.toIndex$28 ds_s11eK = select ds_s11eK (GHC.Types.I# x3_s11eN -> let !sat_s11HJ_s11HJ = <{+#}> x3_s11eN 1 in GHC.Types.I# sat_s11HJ_s11HJ)
Gui.Generic.Classes.x1 =: GHC.CString.unpackCString# "<ul />"
Gui.Generic.Classes.lvl8 =: let !ds_s11HT = Javascript.Base.Types.FakePtr Gui.Generic.Classes.x1 in select ds_s11HT (GHC.Ptr.Ptr ds1_s11eV -> let !tpl_s11HS = Gui.Generic.Classes.x1, !wild_s11HR = ffi_wrapper3 jsToString ds1_s11eV GHC.Prim.realWorld# in select wild_s11HR (<{GHC.Tuple.(,)}> ds2_s11HQ ds3_s11f0 -> GHC.Ptr.Ptr ds3_s11f0))
Gui.Generic.Classes.x2 =: GHC.CString.unpackCString# "container"
Gui.Generic.Classes.lvl9 =: let !ds_s11HZ = Javascript.Base.Types.FakePtr Gui.Generic.Classes.x2 in select ds_s11HZ (GHC.Ptr.Ptr ds1_s11f5 -> let !tpl_s11HY = Gui.Generic.Classes.x2, !wild_s11HX = ffi_wrapper3 jsToString ds1_s11f5 GHC.Prim.realWorld# in select wild_s11HX (<{GHC.Tuple.(,)}> ds2_s11HW ds3_s11fa -> GHC.Ptr.Ptr ds3_s11fa))
Gui.Generic.Classes.lvl10 =: GHC.Enum.eftInt 0 2147483647
Gui.Generic.Classes.lvl11 a9_s11fc = <{GHC.Tuple.(,)}> (Gui.Generic.Classes.lvl11$30 a9_s11fc) (Gui.Generic.Classes.lvl11$29 a9_s11fc)
Gui.Generic.Classes.lvl11$29 a9_s11fc = select a9_s11fc (Gui.Generic.Classes.Alt ds_s11I6 ds1_s11fn ds2_s11I7 -> ds1_s11fn)
Gui.Generic.Classes.lvl11$30 a9_s11fc = select a9_s11fc (Gui.Generic.Classes.Alt ds_s11fh ds1_s11I5 ds2_s11I4 -> ds_s11fh)
Gui.Generic.Classes.lvl12 =: <{GHC.Tuple.(,)}> Data.Maybe.Nothing <{GHC.Types.[]}>
Gui.Generic.Classes.lvl13 =: GHC.Types.I# 0
Gui.Generic.Classes.lvl14 =: GHC.CString.unpackAppendCString# "[]" <{GHC.Types.[]}>
Gui.Generic.Classes.lvl19 =: <{GHC.Types.:}> GHC.Show.showList__2 <{GHC.Types.[]}>
Gui.Generic.Classes.showl ds2_s11fq = select ds2_s11fq (<{GHC.Types.[]}>  -> Gui.Generic.Classes.lvl19) (<{GHC.Types.:}> y_s11fu ys_s11fH -> <{GHC.Types.:}> GHC.Show.showList__1 (Gui.Generic.Classes.showl$31 y_s11fu ys_s11fH))
Gui.Generic.Classes.showl$31 y_s11fu ys_s11fH = select y_s11fu (GHC.Ptr.Ptr ww_s11fy -> let !wild_s11Il = ffi_wrapper3 jsFromString ww_s11fy GHC.Prim.realWorld# in select wild_s11Il (<{GHC.Tuple.(,)}> ds_s11Ik ds1_s11fD -> let !wild2_s11Ij = GHC.Ptr.Ptr ds1_s11fD in select wild2_s11Ij (Javascript.Base.Types.FakePtr val_s11fG -> <{GHC.Base.++}> val_s11fG (Gui.Generic.Classes.showl ys_s11fH))))
Gui.Generic.Classes.showl1 ds2_s11fL = select ds2_s11fL (<{GHC.Types.[]}>  -> Gui.Generic.Classes.lvl19) (<{GHC.Types.:}> y_s11fP ys_s11fR -> <{GHC.Types.:}> GHC.Show.showList__1 (Gui.Generic.Classes.showl1$32 y_s11fP ys_s11fR))
Gui.Generic.Classes.showl1$32 y_s11fP ys_s11fR = if y_s11fP (<{GHC.Base.++}> GHC.Show.shows23 (Gui.Generic.Classes.showl1 ys_s11fR)) (<{GHC.Base.++}> GHC.Show.shows25 (Gui.Generic.Classes.showl1 ys_s11fR))
Gui.Generic.Classes.a2 =: FRP.Fursuit.Signal.Pure Gui.FRP.Dropdown.dropdown9
Gui.Generic.Classes.lvl15 =: <{GHC.Types.:}> GHC.Show.shows10 <{GHC.Types.[]}>
Gui.Generic.Classes.showl2 ds2_s11fW = select ds2_s11fW (<{GHC.Types.[]}>  -> Gui.Generic.Classes.lvl19) (<{GHC.Types.:}> y_s11g0 ys_s11g2 -> <{GHC.Types.:}> GHC.Show.showList__1 (Gui.Generic.Classes.showl2$33 y_s11g0 ys_s11g2))
Gui.Generic.Classes.showl2$33 y_s11g0 ys_s11g2 = if y_s11g0 (<{GHC.Base.++}> GHC.Show.shows23 (Gui.Generic.Classes.showl2 ys_s11g2)) (<{GHC.Base.++}> GHC.Show.shows25 (Gui.Generic.Classes.showl2 ys_s11g2))
Gui.Generic.Classes.a3 ds_s11g8 eta_s11ga = select ds_s11g8 (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta_s11ga <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11gd ys_s11gm -> select y_s11gd (GHC.Ptr.Ptr ds2_s11gh -> let !wild1_s11IK = ffi_wrapper3 _Javascript_JQuery_Basic_hide ds2_s11gh eta_s11ga in select wild1_s11IK (<{GHC.Tuple.(,)}> ds4_s11gn ds5_s11IJ -> Gui.Generic.Classes.a3 ys_s11gm ds4_s11gn)))
Gui.Generic.Classes.poly_a ds_s11gq eta_s11gs = select ds_s11gq (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta_s11gs <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11gv ys_s11gK -> select y_s11gv (Gui.Generic.Classes.Alt ds1_s11IV ds2_s11gA ds3_s11gC -> if ds2_s11gA (Gui.Generic.Classes.poly_a ys_s11gK eta_s11gs) (select ds3_s11gC (Gui.Generic.Types.Input ds4_s11IS ds5_s11gG -> let !ds6_s11IR = Gui.Generic.Classes.a3 ds5_s11gG eta_s11gs in select ds6_s11IR (<{GHC.Tuple.(,)}> ipv_s11gL ipv1_s11IQ -> Gui.Generic.Classes.poly_a ys_s11gK ipv_s11gL)))))
Gui.Generic.Classes.a4 ds_s11gO eta_s11gQ = select ds_s11gO (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta_s11gQ <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11gT ys_s11h2 -> select y_s11gT (GHC.Ptr.Ptr ds2_s11gX -> let !wild1_s11J2 = ffi_wrapper3 _Javascript_JQuery_Basic_hide ds2_s11gX eta_s11gQ in select wild1_s11J2 (<{GHC.Tuple.(,)}> ds4_s11h3 ds5_s11J1 -> Gui.Generic.Classes.a4 ys_s11h2 ds4_s11h3)))
Gui.Generic.Classes.a5 ds_s11h6 eta_s11h8 = select ds_s11h6 (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta_s11h8 <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11hb ys_s11hk -> select y_s11hb (GHC.Ptr.Ptr ds2_s11hf -> let !wild1_s11J9 = ffi_wrapper3 _Javascript_JQuery_Basic_show ds2_s11hf eta_s11h8 in select wild1_s11J9 (<{GHC.Tuple.(,)}> ds4_s11hl ds5_s11J8 -> Gui.Generic.Classes.a5 ys_s11hk ds4_s11hl)))
Gui.Generic.Classes.$wa w_s11pZ w1_s11pY w2_s11m2 w3_s11mL ww_s11mJ ww1_s11hu w4_s11i0 = let !x3_s11hO = Gui.Generic.Classes.$wa$127 ww1_s11hu, !ds_s11KN = Javascript.Base.Types.FakePtr x3_s11hO in select ds_s11KN (GHC.Ptr.Ptr ds1_s11hT -> let !tpl_s11KM = x3_s11hO, !wild_s11KL = ffi_wrapper3 jsToString ds1_s11hT GHC.Prim.realWorld# in select wild_s11KL (<{GHC.Tuple.(,)}> ds2_s11KK ds3_s11hZ -> let !wild1_s11KJ = ffi_wrapper3 _Javascript_Utils_dump_ ds3_s11hZ w4_s11i0 in select wild1_s11KJ (<{GHC.Tuple.()}> ds4_s11iq -> let !x4_s11ie = Gui.Generic.Classes.$wa$128 ww1_s11hu, !ds5_s11KI = Javascript.Base.Types.FakePtr x4_s11ie in select ds5_s11KI (GHC.Ptr.Ptr ds6_s11ij -> let !tpl1_s11KH = x4_s11ie, !wild2_s11KG = ffi_wrapper3 jsToString ds6_s11ij GHC.Prim.realWorld# in select wild2_s11KG (<{GHC.Tuple.(,)}> ds7_s11KF ds8_s11ip -> let !wild3_s11KE = ffi_wrapper3 _Javascript_Utils_dump_ ds8_s11ip ds4_s11iq in select wild3_s11KE (<{GHC.Tuple.()}> ds9_s11iy -> select Gui.Generic.Classes.lvl8 (GHC.Ptr.Ptr ds11_s11ix -> let !wild4_s11KC = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds11_s11ix ds9_s11iy in select wild4_s11KC (<{GHC.Tuple.(,)}> ds12_s11iI ds13_s11iH -> select Gui.Generic.Classes.lvl9 (GHC.Ptr.Ptr ds15_s11iG -> let !wild5_s11KA = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds15_s11iG ds13_s11iH ds12_s11iI in select wild5_s11KA (<{GHC.Tuple.(,)}> ds16_s11k2 ds17_s11lH -> let !cns_s11iO = GHC.Base.map Gui.Generic.Classes.lvl11 ww1_s11hu, $wgo_s11j1 = Gui.Generic.Classes.$wa$82 $wgo_s11j1 (Gui.Generic.Classes.$wa$129 cns_s11iO), !ww2_s11KV = $wgo_s11j1 cns_s11iO in select ww2_s11KV (<{GHC.Tuple.(,)}> ww3_s11Kz ww4_s11jz -> select ww4_s11jz (<{GHC.Tuple.(,)}> x5_s11jE ds18_s11jO -> let !ds19_s11L2 = Javascript.Base.Types.FakePtr (<{GHC.Types.:}> GHC.Show.shows11 (GHC.List.foldr1 <{GHC.Show.$fShow(,)1}> (<{GHC.Types.:}> (Gui.Generic.Classes.$wa$86 x5_s11jE) (<{GHC.Types.:}> (Gui.Generic.Classes.$wa$85 ds18_s11jO) <{GHC.Types.[]}>)) Gui.Generic.Classes.lvl15)) in select ds19_s11L2 (GHC.Ptr.Ptr ds20_s11kz -> let !initially1_s11kj = x5_s11jE, !ds21_s11L1 = FRP.Fursuit.Pipe.emptyPipe1 ds16_s11k2 in select ds21_s11L1 (<{GHC.Tuple.(,)}> ipv_s11kl ipv1_s11k6 -> select ipv1_s11k6 (<{GHC.Tuple.(,)}> ds22_s11ka ds23_s11kn -> select ds22_s11ka (FRP.Fursuit.Signal.P ref_s11kf ds24_s11n1 ds25_s11n4 -> select ref_s11kf (GHC.STRef.STRef var#_s11ki -> let !s2#_s11kq = writeMutVar# var#_s11ki (Data.Maybe.Just initially1_s11kj) ipv_s11kl, !ds26_s11Lc = Gui.FRP.Dropdown.dropdown12 GHC.Classes.$fEqInt Data.Typeable.Internal.$fTypeableInt_$ctypeOf (FRP.Fursuit.Signal.App Gui.FRP.Dropdown.dropdown10 ds23_s11kn) (FRP.Fursuit.Signal.Pure ds18_s11jO) s2#_s11kq in select ds26_s11Lc (<{GHC.Tuple.(,)}> ipv2_s11kG ipv3_s11ku -> select ipv3_s11ku (<{GHC.Tuple.(,)}> a10_s11qk b_s11mR -> let !wild11_s11La = ffi_wrapper3 jsToString ds20_s11kz GHC.Prim.realWorld# in select wild11_s11La (<{GHC.Tuple.(,)}> ds27_s11Kk ds28_s11kF -> let !wild12_s11L9 = ffi_wrapper3 _Javascript_Utils_dump_ ds28_s11kF ipv2_s11kG in select wild12_s11L9 (<{GHC.Tuple.()}> ds29_s11l6 -> let !x6_s11kU = Gui.Generic.Classes.$wa$130 ww1_s11hu, !ds30_s11L8 = Javascript.Base.Types.FakePtr x6_s11kU in select ds30_s11L8 (GHC.Ptr.Ptr ds31_s11kZ -> let !tpl2_s11L7 = x6_s11kU, !wild13_s11L6 = ffi_wrapper3 jsToString ds31_s11kZ GHC.Prim.realWorld# in select wild13_s11L6 (<{GHC.Tuple.(,)}> ds32_s11Kl ds33_s11l5 -> let !wild14_s11L5 = ffi_wrapper3 _Javascript_Utils_dump_ ds33_s11l5 ds29_s11l6 in select wild14_s11L5 (<{GHC.Tuple.()}> ds34_s11rU -> let items_s11lq = Gui.Generic.Classes.$wa$131 ww1_s11hu in select items_s11lq (<{GHC.Types.[]}>  -> Gui.Generic.Classes.$wa$2 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 initially1_s11kj items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww1_s11hu ww_s11mJ ds34_s11rU <{GHC.Types.[]}>) (<{GHC.Types.:}> y_s11s5 ys_s11tW -> select Gui.Generic.Classes.lvl7 (GHC.Ptr.Ptr ds36_s11s0 -> let !wild16_s11Mr = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds36_s11s0 ds34_s11rU in select wild16_s11Mr (<{GHC.Tuple.(,)}> ds37_s11sA ds38_s11sr -> select y_s11s5 (Gui.Generic.Classes.Alt ds39_s11sE ds40_s11Kg ds41_s11sa -> select ds41_s11sa (Gui.Generic.Types.Input ds42_s11Kh ds43_s11sz -> let a112_s11sy = Gui.Generic.Classes.$wa$83 a112_s11sy ds38_s11sr, !ds44_s11My = a112_s11sy ds43_s11sz ds37_s11sA in select ds44_s11My (<{GHC.Tuple.(,)}> ipv4_s11sJ ipv5_s11Kf -> select ds39_s11sE (GHC.Ptr.Ptr ds46_s11sI -> let !wild19_s11Mw = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds46_s11sI ds38_s11sr ipv4_s11sJ in select wild19_s11Mw (<{GHC.Tuple.(,)}> ds47_s11tX ds48_s11u2 -> let poly_a1_s11tM = Gui.Generic.Classes.$wa$84 ds36_s11s0 poly_a1_s11tM, !ds49_s11MJ = poly_a1_s11tM ys_s11tW ds47_s11tX in select ds49_s11MJ (<{GHC.Tuple.(,)}> ipv6_s11u1 ipv7_s11u4 -> Gui.Generic.Classes.$wa$2 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 initially1_s11kj items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww1_s11hu ww_s11mJ ipv6_s11u1 (<{GHC.Types.:}> (GHC.Ptr.Ptr ds48_s11u2) ipv7_s11u4))))))))))))))))))))))))))))))))))
Gui.Generic.Classes.$wa$127 ww1_s11hu = let !wild_s11MR = GHC.Base.map Gui.Generic.Classes.altText ww1_s11hu in select wild_s11MR (<{GHC.Types.[]}>  -> Gui.Generic.Classes.lvl14) (<{GHC.Types.:}> x4_s11hy xs_s11hL -> <{GHC.Types.:}> GHC.Show.showList__3 (Gui.Generic.Classes.$wa$40 x4_s11hy xs_s11hL))
Gui.Generic.Classes.$wa$128 ww1_s11hu = let !wild2_s11MM = GHC.Base.map Gui.Generic.Classes.altSel ww1_s11hu in select wild2_s11MM (<{GHC.Types.[]}>  -> Gui.Generic.Classes.lvl14) (<{GHC.Types.:}> x5_s11i8 xs_s11ia -> <{GHC.Types.:}> GHC.Show.showList__3 (Gui.Generic.Classes.$wa$39 x5_s11i8 xs_s11ia))
Gui.Generic.Classes.$wa$129 cns_s11iO = let !ww2_s11iR = GHC.List.$wlen cns_s11iO 0, !sat_s11Jd_s11Jd = <{-#}> ww2_s11iR 1 in GHC.Types.I# sat_s11Jd_s11Jd
Gui.Generic.Classes.$wa$130 ww1_s11hu = let !wild13_s11MK = GHC.Base.map Gui.Generic.Classes.altSel ww1_s11hu in select wild13_s11MK (<{GHC.Types.[]}>  -> Gui.Generic.Classes.lvl14) (<{GHC.Types.:}> x7_s11kO xs_s11kQ -> <{GHC.Types.:}> GHC.Show.showList__3 (Gui.Generic.Classes.$wa$35 x7_s11kO xs_s11kQ))
Gui.Generic.Classes.$wa$131 ww1_s11hu = let !wild15_s11L4 = GHC.List.filter Gui.Generic.Classes.altSel ww1_s11hu in select wild15_s11L4 (<{GHC.Types.[]}>  -> select ww1_s11hu (<{GHC.Types.[]}>  -> <{GHC.Types.[]}>) (<{GHC.Types.:}> c_s11lf cs_s11ln -> <{GHC.Types.:}> (Gui.Generic.Classes.$wa$34 c_s11lf) cs_s11ln)) (<{GHC.Types.:}> ds35_s11Kn ds36_s11Km -> ww1_s11hu)
Gui.Generic.Classes.$wa$82 $wgo_s11j1 a9_s11iT w5_s11iW = select w5_s11iW (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> a9_s11iT Gui.Generic.Classes.lvl12) (<{GHC.Types.:}> y_s11jf ys_s11j0 -> let !ww2_s11KQ = $wgo_s11j1 ys_s11j0 in select ww2_s11KQ (<{GHC.Tuple.(,)}> ww3_s11j9 ww4_s11j5 -> select ww4_s11j5 (<{GHC.Tuple.(,)}> mi_s11jl l_s11jq -> <{GHC.Tuple.(,)}> (Gui.Generic.Classes.$wa$38 ww3_s11j9) (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$wa$37 mi_s11jl ww3_s11j9 y_s11jf) (<{GHC.Types.:}> (<{GHC.Tuple.(,)}> (Data.Tuple.fst y_s11jf) ww3_s11j9) l_s11jq)))))
Gui.Generic.Classes.$wa$83 a112_s11sy ds38_s11sr ds44_s11sh eta3_s11sj = select ds44_s11sh (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s11sj <{GHC.Tuple.()}>) (<{GHC.Types.:}> y1_s11sm ys1_s11sw -> select y1_s11sm (GHC.Ptr.Ptr ds46_s11sq -> let !wild20_s11Mt = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds46_s11sq ds38_s11sr eta3_s11sj in select wild20_s11Mt (<{GHC.Tuple.(,)}> ds47_s11sx ds48_s11Ke -> a112_s11sy ys1_s11sw ds47_s11sx)))
Gui.Generic.Classes.$wa$84 ds36_s11s0 poly_a1_s11tM ds49_s11sR eta_s11sT = select ds49_s11sR (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta_s11sT <{GHC.Types.[]}>) (<{GHC.Types.:}> y1_s11t1 ys1_s11tK -> let !wild21_s11MC = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds36_s11s0 eta_s11sT in select wild21_s11MC (<{GHC.Tuple.(,)}> ds50_s11tw ds51_s11tn -> select y1_s11t1 (Gui.Generic.Classes.Alt ds52_s11tA ds53_s11Kc ds54_s11t6 -> select ds54_s11t6 (Gui.Generic.Types.Input ds55_s11Kd ds56_s11tv -> let a11_s11tu = Gui.Generic.Classes.$wa$87 a11_s11tu ds51_s11tn, !ds57_s11MI = a11_s11tu ds56_s11tv ds50_s11tw in select ds57_s11MI (<{GHC.Tuple.(,)}> ipv6_s11tF ipv7_s11Kb -> select ds52_s11tA (GHC.Ptr.Ptr ds59_s11tE -> let !wild24_s11MG = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds59_s11tE ds51_s11tn ipv6_s11tF in select wild24_s11MG (<{GHC.Tuple.(,)}> ds60_s11tL ds61_s11tR -> let !ds62_s11MF = poly_a1_s11tM ys1_s11tK ds60_s11tL in select ds62_s11MF (<{GHC.Tuple.(,)}> ipv8_s11tQ ipv9_s11tT -> <{GHC.Tuple.(,)}> ipv8_s11tQ (<{GHC.Types.:}> (GHC.Ptr.Ptr ds61_s11tR) ipv9_s11tT)))))))))
Gui.Generic.Classes.$wa$87 a11_s11tu ds51_s11tn ds57_s11td eta3_s11tf = select ds57_s11td (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s11tf <{GHC.Tuple.()}>) (<{GHC.Types.:}> y2_s11ti ys2_s11ts -> select y2_s11ti (GHC.Ptr.Ptr ds59_s11tm -> let !wild25_s11MD = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds59_s11tm ds51_s11tn eta3_s11tf in select wild25_s11MD (<{GHC.Tuple.(,)}> ds60_s11tt ds61_s11Ka -> a11_s11tu ys2_s11ts ds60_s11tt)))
Gui.Generic.Classes.$wa$85 ds18_s11jO eta_B1_B1 = <{GHC.Show.$fShow(,)_$cshowList}> Javascript.Base.String.$fShowPtr GHC.Show.$fShowInt ds18_s11jO eta_B1_B1
Gui.Generic.Classes.$wa$86 x5_s11jE s_s11jG = select x5_s11jE (Data.Maybe.Nothing  -> <{GHC.Base.++}> GHC.Show.$fShowMaybe2 s_s11jG) (Data.Maybe.Just x6_s11jI -> <{GHC.Base.++}> GHC.Show.$fShowMaybe1 (Gui.Generic.Classes.$wa$36 s_s11jG x6_s11jI))
Gui.Generic.Classes.$wa$34 c_s11lf = select c_s11lf (Gui.Generic.Classes.Alt ds35_s11lk ds36_s11Kp ds37_s11ll -> Gui.Generic.Classes.Alt ds35_s11lk true ds37_s11ll)
Gui.Generic.Classes.$wa$35 x7_s11kO xs_s11kQ = if x7_s11kO (<{GHC.Base.++}> GHC.Show.shows23 (Gui.Generic.Classes.showl2 xs_s11kQ)) (<{GHC.Base.++}> GHC.Show.shows25 (Gui.Generic.Classes.showl2 xs_s11kQ))
Gui.Generic.Classes.$wa$36 s_s11jG x6_s11jI = select x6_s11jI (GHC.Types.I# ww5_s11jL -> GHC.Show.$wshowSignedInt 11 ww5_s11jL s_s11jG)
Gui.Generic.Classes.$wa$37 mi_s11jl ww3_s11j9 y_s11jf = select y_s11jf (<{GHC.Tuple.(,)}> ds18_s11Ky y1_s11jj -> if y1_s11jj (Data.Maybe.Just ww3_s11j9) mi_s11jl)
Gui.Generic.Classes.$wa$38 ww3_s11j9 = select ww3_s11j9 (GHC.Types.I# x5_s11jc -> let !sat_s11Kv_s11Kv = <{-#}> x5_s11jc 1 in GHC.Types.I# sat_s11Kv_s11Kv)
Gui.Generic.Classes.$wa$39 x5_s11i8 xs_s11ia = if x5_s11i8 (<{GHC.Base.++}> GHC.Show.shows23 (Gui.Generic.Classes.showl1 xs_s11ia)) (<{GHC.Base.++}> GHC.Show.shows25 (Gui.Generic.Classes.showl1 xs_s11ia))
Gui.Generic.Classes.$wa$40 x4_s11hy xs_s11hL = select x4_s11hy (GHC.Ptr.Ptr ww2_s11hC -> let !wild1_s11MW = ffi_wrapper3 jsFromString ww2_s11hC GHC.Prim.realWorld# in select wild1_s11MW (<{GHC.Tuple.(,)}> ds_s11MV ds1_s11hH -> let !wild2_s11MU = GHC.Ptr.Ptr ds1_s11hH in select wild2_s11MU (Javascript.Base.Types.FakePtr val_s11hK -> <{GHC.Base.++}> val_s11hK (Gui.Generic.Classes.showl xs_s11hL))))
Gui.Generic.Classes.$wa$2 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 initially1_s11kj items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww1_s11hu ww_s11mJ ipv4_s11lQ ipv5_s11lP = let a112_s11lO = Gui.Generic.Classes.$wa$88 a112_s11lO ds17_s11lH, !ds35_s11Lm = a112_s11lO ipv5_s11lP ipv4_s11lQ in select ds35_s11Lm (<{GHC.Tuple.(,)}> ipv6_s11lU ipv7_s11K6 -> let !ds36_s11Ll = Gui.Generic.Classes.poly_a items_s11lq ipv6_s11lU in select ds36_s11Ll (<{GHC.Tuple.(,)}> ipv8_s11r3 ipv9_s11K7 -> let $j1_s11rr = Gui.Generic.Classes.$wa$89 ipv8_s11r3 ww1_s11hu in select initially1_s11kj (Data.Maybe.Nothing  -> let !ds37_s11Mi = $j1_s11rr 0 in select ds37_s11Mi (<{GHC.Tuple.(,)}> ipv10_s11rA ipv11_s11rw -> select ipv11_s11rw (<{GHC.Tuple.(,)}> ww5_s11rB ww6_s11rC -> Gui.Generic.Classes.$wa$3 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww_s11mJ ipv10_s11rA ww5_s11rB ww6_s11rC))) (Data.Maybe.Just v_s11rE -> select v_s11rE (GHC.Types.I# n0_s11rH -> let !ds37_s11Ml = $j1_s11rr n0_s11rH in select ds37_s11Ml (<{GHC.Tuple.(,)}> ipv10_s11rP ipv11_s11rL -> select ipv11_s11rL (<{GHC.Tuple.(,)}> ww5_s11rQ ww6_s11rR -> Gui.Generic.Classes.$wa$3 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww_s11mJ ipv10_s11rP ww5_s11rQ ww6_s11rR))))))
Gui.Generic.Classes.$wa$88 a112_s11lO ds17_s11lH ds35_s11lx eta3_s11lz = select ds35_s11lx (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta3_s11lz <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s11lC ys_s11lM -> select y_s11lC (GHC.Ptr.Ptr ds37_s11lG -> let !wild16_s11Lf = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds37_s11lG ds17_s11lH eta3_s11lz in select wild16_s11Lf (<{GHC.Tuple.(,)}> ds38_s11lN ds39_s11K5 -> a112_s11lO ys_s11lM ds38_s11lN)))
Gui.Generic.Classes.$wa$89 ipv8_s11r3 ww1_s11hu n0_s11qR = let !wild15_s11Mg = <{<#}> n0_s11qR 0 in if wild15_s11Mg <{GHC.List.!!1}> (let !wild16_s11Mf = <{GHC.List.!!_sub}> ww1_s11hu n0_s11qR in select wild16_s11Mf (Gui.Generic.Classes.Alt ds37_s11K0 ds38_s11JZ ds39_s11qX -> select ds39_s11qX (Gui.Generic.Types.Input ds40_s11r1 ds41_s11K1 -> let !initially2_s11rk = ds40_s11r1, !ds42_s11Md = FRP.Fursuit.Pipe.emptyPipe1 ipv8_s11r3 in select ds42_s11Md (<{GHC.Tuple.(,)}> ipv10_s11rm ipv11_s11r7 -> select ipv11_s11r7 (<{GHC.Tuple.(,)}> ds43_s11rb ds44_s11K2 -> select ds43_s11rb (FRP.Fursuit.Signal.P ref1_s11rg ds45_s11K4 ds46_s11K3 -> select ref1_s11rg (GHC.STRef.STRef var#1_s11rj -> let !s2#1_s11ro = writeMutVar# var#1_s11rj (Data.Maybe.Just initially2_s11rk) ipv10_s11rm in <{GHC.Tuple.(,)}> s2#1_s11ro ipv11_s11r7)))))))
Gui.Generic.Classes.$wa$3 a10_s11qk b_s11mR ds17_s11lH ds24_s11n1 ds25_s11n4 items_s11lq var#_s11ki w1_s11pY w2_s11m2 w3_s11mL w_s11pZ ww_s11mJ w5_s11m4 ww5_s11nx ww6_s11mC = let !initially2_s11ml = w2_s11m2, !ds37_s11Lk = FRP.Fursuit.Pipe.emptyPipe1 w5_s11m4 in select ds37_s11Lk (<{GHC.Tuple.(,)}> ipv10_s11mn ipv11_s11m8 -> select ipv11_s11m8 (<{GHC.Tuple.(,)}> ds38_s11mc ds39_s11qj -> select ds38_s11mc (FRP.Fursuit.Signal.P ref1_s11mh ds40_s11mr ds41_s11mu -> select ref1_s11mh (GHC.STRef.STRef var#1_s11mk -> let !s2#1_s11mD = writeMutVar# var#1_s11mk (Data.Maybe.Just initially2_s11ml) ipv10_s11mn, !ds42_s11Lp = FRP.Fursuit.switch1 (Gui.Generic.Classes.$wa$90 ds40_s11mr ds41_s11mu var#1_s11mk) ww6_s11mC s2#1_s11mD in select ds42_s11Lp (<{GHC.Tuple.(,)}> ipv12_s11mM ipv13_s11JW -> let !ds43_s11Lq = FRP.Fursuit.Signal.removableSink1 (Gui.Generic.Classes.$wa$91 ww_s11mJ) w3_s11mL ipv12_s11mM in select ds43_s11Lq (<{GHC.Tuple.(,)}> ipv14_s11qd ipv15_s11JU -> let ddsig_s11mW = FRP.Fursuit.Signal.App FRP.Fursuit.filterMapS1 (FRP.Fursuit.Signal.Filter Data.Maybe.isJust (FRP.Fursuit.Signal.App Gui.Generic.Classes.a2 b_s11mR)), !ds44_s11M7 = FRP.Fursuit.Signal.removableSink1 (Gui.Generic.Classes.$wa$93 ds24_s11n1 ds25_s11n4 (GHC.List.zip Gui.Generic.Classes.lvl10 items_s11lq) var#_s11ki ww5_s11nx) (FRP.Fursuit.Signal.Union ddsig_s11mW (FRP.Fursuit.Signal.App FRP.Fursuit.filterMapS1 (FRP.Fursuit.Signal.Filter Data.Maybe.isJust (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure (Gui.Generic.Classes.$wa$92 w1_s11pY w_s11pZ)) w3_s11mL)))) ipv14_s11qd in select ds44_s11M7 (<{GHC.Tuple.(,)}> ipv16_s11qi ipv17_s11JP -> let !wild18_s11M6 = FRP.Fursuit.Signal.sourceOrigins ddsig_s11mW in select wild18_s11M6 (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> ipv16_s11qi (Gui.Generic.Types.Input ds39_s11qj (<{GHC.Types.:}> a10_s11qk (<{GHC.Types.:}> (GHC.Ptr.Ptr ds17_s11lH) <{GHC.Types.[]}>)))) (<{GHC.Types.:}> <{so'_s11qu}> ds45_s11JR -> select <{so'_s11qu}> (<{GHC.Tuple.(,)}> ds46_s11qB y_s11qy -> select y_s11qy (GHC.STRef.STRef ww7_s11qC -> let !ds47_s11M8 = FRP.Fursuit.Pipe.$wa ds46_s11qB ww7_s11qC ipv16_s11qi in select ds47_s11M8 (<{GHC.Tuple.(,)}> ipv18_s11qG ipv19_s11JS -> <{GHC.Tuple.(,)}> ipv18_s11qG (Gui.Generic.Types.Input ds39_s11qj (<{GHC.Types.:}> a10_s11qk (<{GHC.Types.:}> (GHC.Ptr.Ptr ds17_s11lH) <{GHC.Types.[]}>))))))))))))))
Gui.Generic.Classes.$wa$90 ds40_s11mr ds41_s11mu var#1_s11mk w6_s11mz w7_s11mA = select ds40_s11mr (GHC.STRef.STRef ww8_s11mx -> select ds41_s11mu (GHC.STRef.STRef ww10_s11my -> FRP.Fursuit.Pipe.$wa1 var#1_s11mk ww8_s11mx ww10_s11my w6_s11mz w7_s11mA))
Gui.Generic.Classes.$wa$91 ww_s11mJ ma_s11mI = ww_s11mJ ma_s11mI
Gui.Generic.Classes.$wa$92 w1_s11pY w_s11pZ x7_s11q0 = let !sat_s11Jf_s11Jf = <{Gui.Generic.Classes.$fGSelAlt:+:_$cgSelAlt}> w1_s11pY w_s11pZ x7_s11q0 in Gui.Generic.Classes.toIndex Gui.Generic.Classes.lvl13 sat_s11Jf_s11Jf
Gui.Generic.Classes.$wa$93 ds24_s11n1 ds25_s11n4 options_s11mY var#_s11ki ww5_s11nx i_s11n9 s_s11nb = select ds24_s11n1 (GHC.STRef.STRef ww8_s11n7 -> select ds25_s11n4 (GHC.STRef.STRef ww10_s11n8 -> let !ds44_s11Ly = FRP.Fursuit.Pipe.$wa1 var#_s11ki ww8_s11n7 ww10_s11n8 (Data.Maybe.Just i_s11n9) s_s11nb in select ds44_s11Ly (<{GHC.Tuple.(,)}> ipv16_s11nD ipv17_s11JH -> select options_s11mY (<{GHC.Types.[]}>  -> Gui.Generic.Classes.$wa$4 i_s11n9 options_s11mY ww5_s11nx ipv16_s11nD) (<{GHC.Types.:}> y_s11nG ys_s11oP -> select y_s11nG (<{GHC.Tuple.(,)}> x7_s11nK ds45_s11nS -> select x7_s11nK (GHC.Types.I# x8_s11nP -> select i_s11n9 (GHC.Types.I# y1_s11nQ -> let !wild22_s11LE = <{==#}> x8_s11nP y1_s11nQ in if wild22_s11LE (select ds45_s11nS (Gui.Generic.Classes.Alt ds46_s11Jz ds47_s11Jy ds48_s11oZ -> select ds48_s11oZ (Gui.Generic.Types.Input ds49_s11JA ds50_s11p3 -> let !ds51_s11LT = Gui.Generic.Classes.a5 ds50_s11p3 ipv16_s11nD in select ds51_s11LT (<{GHC.Tuple.(,)}> ipv18_s11pR ipv19_s11JB -> let a13_s11pD = Gui.Generic.Classes.$wa$95 a13_s11pD y1_s11nQ, !ds52_s11M5 = a13_s11pD ys_s11oP ipv18_s11pR in select ds52_s11M5 (<{GHC.Tuple.(,)}> ipv20_s11pV ipv21_s11Jx -> Gui.Generic.Classes.$wa$4 i_s11n9 options_s11mY ww5_s11nx ipv20_s11pV))))) (select ds45_s11nS (Gui.Generic.Classes.Alt ds46_s11JD ds47_s11JC ds48_s11nX -> select ds48_s11nX (Gui.Generic.Types.Input ds49_s11JE ds50_s11o1 -> let !ds51_s11LB = Gui.Generic.Classes.a4 ds50_s11o1 ipv16_s11nD in select ds51_s11LB (<{GHC.Tuple.(,)}> ipv18_s11oQ ipv19_s11JF -> let a13_s11oB = Gui.Generic.Classes.$wa$94 a13_s11oB y1_s11nQ, !ds52_s11LR = a13_s11oB ys_s11oP ipv18_s11oQ in select ds52_s11LR (<{GHC.Tuple.(,)}> ipv20_s11oU ipv21_s11Jo -> Gui.Generic.Classes.$wa$4 i_s11n9 options_s11mY ww5_s11nx ipv20_s11oU))))))))))))
Gui.Generic.Classes.$wa$94 a13_s11oB y1_s11nQ ds52_s11o8 eta_s11oa = select ds52_s11o8 (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta_s11oa <{GHC.Tuple.()}>) (<{GHC.Types.:}> y2_s11od ys1_s11oz -> select y2_s11od (<{GHC.Tuple.(,)}> x9_s11oh ds53_s11om -> select x9_s11oh (GHC.Types.I# x10_s11ok -> let !wild28_s11LL = <{==#}> x10_s11ok y1_s11nQ in if wild28_s11LL (select ds53_s11om (Gui.Generic.Classes.Alt ds54_s11Jh ds55_s11Jg ds56_s11oG -> select ds56_s11oG (Gui.Generic.Types.Input ds57_s11Ji ds58_s11oK -> let !ds59_s11LO = Gui.Generic.Classes.a5 ds58_s11oK eta_s11oa in select ds59_s11LO (<{GHC.Tuple.(,)}> ipv20_s11oO ipv21_s11Jj -> a13_s11oB ys1_s11oz ipv20_s11oO)))) (select ds53_s11om (Gui.Generic.Classes.Alt ds54_s11Jl ds55_s11Jk ds56_s11or -> select ds56_s11or (Gui.Generic.Types.Input ds57_s11Jm ds58_s11ov -> let !ds59_s11LI = Gui.Generic.Classes.a4 ds58_s11ov eta_s11oa in select ds59_s11LI (<{GHC.Tuple.(,)}> ipv20_s11oA ipv21_s11Jn -> a13_s11oB ys1_s11oz ipv20_s11oA)))))))
Gui.Generic.Classes.$wa$95 a13_s11pD y1_s11nQ ds52_s11pa eta_s11pc = select ds52_s11pa (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta_s11pc <{GHC.Tuple.()}>) (<{GHC.Types.:}> y2_s11pf ys1_s11pB -> select y2_s11pf (<{GHC.Tuple.(,)}> x9_s11pj ds53_s11po -> select x9_s11pj (GHC.Types.I# x10_s11pm -> let !wild28_s11LZ = <{==#}> x10_s11pm y1_s11nQ in if wild28_s11LZ (select ds53_s11po (Gui.Generic.Classes.Alt ds54_s11Jq ds55_s11Jp ds56_s11pI -> select ds56_s11pI (Gui.Generic.Types.Input ds57_s11Jr ds58_s11pM -> let !ds59_s11M2 = Gui.Generic.Classes.a5 ds58_s11pM eta_s11pc in select ds59_s11M2 (<{GHC.Tuple.(,)}> ipv20_s11pQ ipv21_s11Js -> a13_s11pD ys1_s11pB ipv20_s11pQ)))) (select ds53_s11po (Gui.Generic.Classes.Alt ds54_s11Ju ds55_s11Jt ds56_s11pt -> select ds56_s11pt (Gui.Generic.Types.Input ds57_s11Jv ds58_s11px -> let !ds59_s11LW = Gui.Generic.Classes.a4 ds58_s11px eta_s11pc in select ds59_s11LW (<{GHC.Tuple.(,)}> ipv20_s11pC ipv21_s11Jw -> a13_s11pD ys1_s11pB ipv20_s11pC)))))))
Gui.Generic.Classes.$wa$4 i_s11n9 options_s11mY ww5_s11nx ipv18_s11nz = select i_s11n9 (GHC.Types.I# n0_s11nj -> let !wild19_s11Lw = <{<#}> n0_s11nj 0 in if wild19_s11Lw <{GHC.List.!!1}> (let !wild20_s11Lv = <{GHC.List.!!_sub}> options_s11mY n0_s11nj in select wild20_s11Lv (<{GHC.Tuple.(,)}> ds45_s11JI y_s11no -> select y_s11no (Gui.Generic.Classes.Alt ds46_s11JK ds47_s11JJ ds48_s11nt -> select ds48_s11nt (Gui.Generic.Types.Input ds49_s11ny ds50_s11JL -> FRP.Fursuit.Pipe.write1 ww5_s11nx ds49_s11ny ipv18_s11nz)))))
Gui.Generic.Classes.procAlts1 w_s11uk w1_s11ul w2_s11ur w3_s11us w4_s11ut w5_s11um w6_s11un w7_s11ug w8_s11uq = select w7_s11ug (<{GHC.Tuple.(,)}> ww_s11uo ww1_s11up -> Gui.Generic.Classes.$wa w_s11uk w1_s11ul w5_s11um w6_s11un ww_s11uo ww1_s11up w8_s11uq)
Gui.Generic.Classes.procAlts eta_B9_B9 eta_B8_B8 eta_B7_B7 eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.procAlts1 eta_B9_B9 eta_B8_B8 eta_B7_B7 eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fGToInputAltsM2 ds_s11ux eta_s11uw = <{GHC.Tuple.(,)}> eta_s11uw <{GHC.Tuple.()}>
Gui.Generic.Classes.$fGToInputAltsM5 =: Data.Maybe.Just GHC.Generics.U1
Gui.Generic.Classes.$fGToInputAltsM4 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputAltsM5
Gui.Generic.Classes.$fGToInputAltsM3 =: Gui.Generic.Types.Input Gui.Generic.Classes.$fGToInputAltsM4 <{GHC.Types.[]}>
Gui.Generic.Classes.$w$cgToInputAlt2 w_s11uI w1_s11v2 w2_s11uC = Gui.Generic.Classes.$w$cgToInputAlt2$96 (Gui.Generic.Classes.$w$cgToInputAlt2$132 w_s11uI) (Gui.Generic.Classes.$w$cgToInputAlt2$41 w2_s11uC) (GHC.Base.return (Control.Monad.IO.Class.$p1MonadIO w1_s11v2))
Gui.Generic.Classes.$w$cgToInputAlt2$132 w_s11uI = let !x3_s11uJ = GHC.Generics.conName w_s11uI GHC.Err.undefined, !ds_s11Nc = Javascript.Base.Types.FakePtr x3_s11uJ in select ds_s11Nc (GHC.Ptr.Ptr ds1_s11uO -> let !tpl_s11Nb = x3_s11uJ, !wild_s11Na = ffi_wrapper3 jsToString ds1_s11uO GHC.Prim.realWorld# in select wild_s11Na (<{GHC.Tuple.(,)}> ds2_s11N7 ds3_s11uT -> GHC.Ptr.Ptr ds3_s11uT))
Gui.Generic.Classes.$w$cgToInputAlt2$96 a10_s11uU a9_s11uF lvl28_s11v5 eta_s11v7 = lvl28_s11v5 (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> Gui.Generic.Classes.$fGToInputAltsM2 (<{GHC.Types.:}> (Gui.Generic.Classes.Alt a10_s11uU a9_s11uF Gui.Generic.Classes.$fGToInputAltsM3) <{GHC.Types.[]}>)) eta_s11v7)
Gui.Generic.Classes.$w$cgToInputAlt2$41 w2_s11uC = select w2_s11uC (Data.Maybe.Nothing  -> false) (Data.Maybe.Just ipv_s11N9 -> true)
Gui.Generic.Classes.a6 w_s11vj w1_s11vg w2_s11vh w3_s11vk w4_s11vi = Gui.Generic.Classes.$w$cgToInputAlt2 w1_s11vg w2_s11vh w4_s11vi
Gui.Generic.Classes.$fGToInputAltsM10_$cgToInputAlt eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Classes.a6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$fGToInputAltsM10 $dGToInput_s11vn $dConstructor_s11vr = <{Gui.Generic.Classes.D:GToInputAlt}> $dGToInput_s11vn (Gui.Generic.Classes.$fGToInputAltsM10$97 $dConstructor_s11vr)
Gui.Generic.Classes.$fGToInputAltsM10$97 $dConstructor_s11vr w_s11vs w1_s11Ng w2_s11vt = Gui.Generic.Classes.$w$cgToInputAlt2 $dConstructor_s11vr w_s11vs w2_s11vt
Gui.Generic.Classes.lvl16 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM9
Gui.Generic.Classes.lvl17 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.$fGToInputsM7
Gui.Generic.Classes.$w$cgToInputAlt1 w_s11wX w1_s11vz w2_s11vO = let con_s11vA = GHC.Generics.conName w1_s11vz GHC.Err.undefined, !ds_s11NC = Javascript.Base.Types.FakePtr con_s11vA in select ds_s11NC (GHC.Ptr.Ptr ds1_s11vG -> let $dMonad_s11vV = Control.Monad.IO.Class.$p1MonadIO w2_s11vO in Gui.Generic.Classes.$w$cgToInputAlt1$99 (Control.Monad.Trans.State.Lazy.$w$cliftIO w2_s11vO (Gui.Generic.Classes.$w$cgToInputAlt1$100 con_s11vA)) (Gui.Generic.Classes.$w$cgToInputAlt1$133 con_s11vA ds1_s11vG) (GHC.Base.return $dMonad_s11vV) (Gui.Generic.Classes.$w$cgToInputAlt1$98 (GHC.Base.return $dMonad_s11vV)) (<{GHC.Base.>>=}> $dMonad_s11vV) (<{GHC.Base.>>=}> $dMonad_s11vV) (<{GHC.Base.>>=}> $dMonad_s11vV) (<{GHC.Base.>>=}> $dMonad_s11vV) w2_s11vO w_s11wX)
Gui.Generic.Classes.$w$cgToInputAlt1$133 con_s11vA ds1_s11vG = let !tpl_s11NB = con_s11vA, !wild_s11NA = ffi_wrapper3 jsToString ds1_s11vG GHC.Prim.realWorld# in select wild_s11NA (<{GHC.Tuple.(,)}> ds2_s11Nz ds3_s11vL -> GHC.Ptr.Ptr ds3_s11vL)
Gui.Generic.Classes.$w$cgToInputAlt1$98 lvl30_s11vZ ds2_s11w2 = lvl30_s11vZ (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInputAlt1$47 ds2_s11w2) (Gui.Generic.Classes.$w$cgToInputAlt1$46 ds2_s11w2))
Gui.Generic.Classes.$w$cgToInputAlt1$99 a9_s11vT lvl28_s11vM lvl29_s11vX lvl31_s11wm lvl32_s11wo lvl33_s11wq lvl34_s11ws lvl35_s11wu w2_s11vO w_s11wX ips_s11wT ma_s11wy = Gui.Generic.Classes.$w$cgToInputAlt1$103 a9_s11vT lvl35_s11wu (Gui.Generic.Classes.$w$cgToInputAlt1$102 (Control.Monad.Trans.State.Lazy.$w$cliftIO w2_s11vO (Gui.Generic.Classes.$w$cgToInputAlt1$104 ma_s11wy)) lvl34_s11ws (Gui.Generic.Classes.$w$cgToInputAlt1$101 ips_s11wT lvl28_s11vM lvl29_s11vX lvl31_s11wm lvl32_s11wo lvl33_s11wq (Gui.Generic.Classes.$w$cgToInputAlt1$42 ma_s11wy) w2_s11vO w_s11wX))
Gui.Generic.Classes.$w$cgToInputAlt1$101 ips_s11wT lvl28_s11vM lvl29_s11vX lvl31_s11wm lvl32_s11wo lvl33_s11wq lvl36_s11wF w2_s11vO w_s11wX ds2_s11wI = select ds2_s11wI (<{GHC.Tuple.(,)}> a11_s11wM <{s'_s11wW}> -> select a11_s11wM (<{GHC.Tuple.(,)}> p_s11wR s_s11wU -> lvl33_s11wq (lvl32_s11wo (w_s11wX w2_s11vO ips_s11wT (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl16 s_s11wU) <{s'_s11wW}>) lvl31_s11wm) (Gui.Generic.Classes.$w$cgToInputAlt1$106 (Gui.Generic.Classes.$w$cgToInputAlt1$105 p_s11wR) lvl28_s11vM lvl29_s11vX lvl36_s11wF)))
Gui.Generic.Classes.$w$cgToInputAlt1$105 p_s11wR eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Pipe.write1 p_s11wR eta_B2_B2 eta_B1_B1
Gui.Generic.Classes.$w$cgToInputAlt1$106 a12_s11wS lvl28_s11vM lvl29_s11vX lvl36_s11wF ds3_s11x3 = lvl29_s11vX (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> a12_s11wS (<{GHC.Types.:}> (Gui.Generic.Classes.Alt lvl28_s11vM lvl36_s11wF (Gui.Generic.Classes.$w$cgToInputAlt1$45 ds3_s11x3)) <{GHC.Types.[]}>)) (Gui.Generic.Classes.$w$cgToInputAlt1$44 ds3_s11x3))
Gui.Generic.Classes.$w$cgToInputAlt1$102 a10_s11wB lvl34_s11ws lvl37_s11xo ds2_s11xr = lvl34_s11ws (a10_s11wB (Gui.Generic.Classes.$w$cgToInputAlt1$43 ds2_s11xr)) lvl37_s11xo
Gui.Generic.Classes.$w$cgToInputAlt1$103 a9_s11vT lvl35_s11wu lvl38_s11xz eta_s11xB = lvl35_s11wu (a9_s11vT eta_s11xB) lvl38_s11xz
Gui.Generic.Classes.$w$cgToInputAlt1$104 ma_s11wy eta_B1_B1 = FRP.Fursuit.Pipe.pipe1 ma_s11wy eta_B1_B1
Gui.Generic.Classes.$w$cgToInputAlt1$100 con_s11vA eta_B1_B1 = Javascript.Utils.dumpString1 (GHC.CString.unpackAppendCString# "alt C1 K1" con_s11vA) eta_B1_B1
Gui.Generic.Classes.$w$cgToInputAlt1$42 ma_s11wy = select ma_s11wy (Data.Maybe.Nothing  -> false) (Data.Maybe.Just ipv_s11Nw -> true)
Gui.Generic.Classes.$w$cgToInputAlt1$43 ds2_s11xr = select ds2_s11xr (<{GHC.Tuple.(,)}> a11_s11Nv <{s'_s11xv}> -> <{s'_s11xv}>)
Gui.Generic.Classes.$w$cgToInputAlt1$44 ds3_s11x3 = select ds3_s11x3 (<{GHC.Tuple.(,)}> a13_s11Ns <{s'1_s11xi}> -> <{s'1_s11xi}>)
Gui.Generic.Classes.$w$cgToInputAlt1$45 ds3_s11x3 = select ds3_s11x3 (<{GHC.Tuple.(,)}> a13_s11x7 <{s'1_s11Np}> -> a13_s11x7)
Gui.Generic.Classes.$w$cgToInputAlt1$46 ds2_s11w2 = select ds2_s11w2 (<{GHC.Tuple.(,)}> a10_s11Ny <{s'_s11wh}> -> <{s'_s11wh}>)
Gui.Generic.Classes.$w$cgToInputAlt1$47 ds2_s11w2 = select ds2_s11w2 (<{GHC.Tuple.(,)}> a10_s11w6 <{s'_s11Nn}> -> select a10_s11w6 (Gui.Generic.Types.Input ma_s11wa e_s11wc -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl17 ma_s11wa) e_s11wc))
Gui.Generic.Classes.$fGToInputAltsM1_$cgToInputAlt w_s11xN w1_s11xK w2_s11xL w3_s11xM = Gui.Generic.Classes.$w$cgToInputAlt1 w1_s11xK w2_s11xL w3_s11xM
Gui.Generic.Classes.$fGToInputAltsM1 $dGToInput_s11xR $dGToInput1_s11xT $dConstructor_s11xU = <{Gui.Generic.Classes.D:GToInputAlt}> $dGToInput_s11xR (Gui.Generic.Classes.$fGToInputAltsM1$107 $dConstructor_s11xU $dGToInput1_s11xT)
Gui.Generic.Classes.$fGToInputAltsM1$107 $dConstructor_s11xU $dGToInput1_s11xT w_s11xV = Gui.Generic.Classes.$w$cgToInputAlt1 $dGToInput1_s11xT $dConstructor_s11xU w_s11xV
Gui.Generic.Classes.lvl18 =: GHC.CString.unpackCString# "alt f g"
Gui.Generic.Classes.lvl20 ds1_s11xY = select ds1_s11xY (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11y1 -> Data.Maybe.Just (GHC.Generics.L1 a9_s11y1))
Gui.Generic.Classes.lvl21 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl20
Gui.Generic.Classes.a7 w_s11y4 = select w_s11y4 (Gui.Generic.Classes.Alt ww_s11y9 ww1_s11ya ww2_s11yb -> Gui.Generic.Classes.Alt ww_s11y9 ww1_s11ya (Gui.Generic.Classes.a7$48 ww2_s11yb))
Gui.Generic.Classes.a7$48 ww2_s11yb = select ww2_s11yb (Gui.Generic.Types.Input ma_s11yf e_s11yh -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl21 ma_s11yf) e_s11yh)
Gui.Generic.Classes.lvl22 ds1_s11yk = select ds1_s11yk (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a9_s11yn -> Data.Maybe.Just (GHC.Generics.R1 a9_s11yn))
Gui.Generic.Classes.lvl23 =: FRP.Fursuit.Signal.Pure Gui.Generic.Classes.lvl22
Gui.Generic.Classes.a8 w_s11yq = select w_s11yq (Gui.Generic.Classes.Alt ww_s11yv ww1_s11yw ww2_s11yx -> Gui.Generic.Classes.Alt ww_s11yv ww1_s11yw (Gui.Generic.Classes.a8$49 ww2_s11yx))
Gui.Generic.Classes.a8$49 ww2_s11yx = select ww2_s11yx (Gui.Generic.Types.Input ma_s11yB e_s11yD -> Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Classes.lvl23 ma_s11yB) e_s11yD)
Gui.Generic.Classes.lvl24 eta_s11yG = Javascript.Utils.dumpString1 Gui.Generic.Classes.lvl18 eta_s11yG
Gui.Generic.Classes.lvl25 =: GHC.CString.unpackCString# "this shouldn\'t happen: upd lu ru"
Gui.Generic.Classes.$w$cgToInputAlt w_s11zQ w1_s11zT w2_s11yL = let $dMonad_s11yO = Control.Monad.IO.Class.$p1MonadIO w2_s11yL in Gui.Generic.Classes.$w$cgToInputAlt$110 (Control.Monad.Trans.State.Lazy.$w$cliftIO w2_s11yL Gui.Generic.Classes.lvl24) (GHC.Base.return $dMonad_s11yO) (Gui.Generic.Classes.$w$cgToInputAlt$108 (GHC.Base.return $dMonad_s11yO)) (<{GHC.Base.>>=}> $dMonad_s11yO) (<{GHC.Base.>>=}> $dMonad_s11yO) (Gui.Generic.Classes.$w$cgToInputAlt$109 (GHC.Base.return $dMonad_s11yO)) (<{GHC.Base.>>=}> $dMonad_s11yO) (<{GHC.Base.>>=}> $dMonad_s11yO) (<{GHC.Base.>>=}> $dMonad_s11yO) (Gui.Generic.Classes.gToInputAlt w_s11zQ) (Gui.Generic.Classes.gToInputAlt w1_s11zT) w2_s11yL
Gui.Generic.Classes.$w$cgToInputAlt$108 lvl29_s11yS ds_s11yV = lvl29_s11yS (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInputAlt$56 ds_s11yV) (Gui.Generic.Classes.$w$cgToInputAlt$55 ds_s11yV))
Gui.Generic.Classes.$w$cgToInputAlt$109 lvl33_s11zl ds_s11zo = lvl33_s11zl (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInputAlt$54 ds_s11zo) (Gui.Generic.Classes.$w$cgToInputAlt$53 ds_s11zo))
Gui.Generic.Classes.$w$cgToInputAlt$110 a9_s11yM lvl28_s11yQ lvl30_s11zf lvl31_s11zh lvl32_s11zj lvl34_s11zI lvl35_s11zK lvl36_s11zM lvl37_s11zO lvl38_s11zR lvl39_s11zU w2_s11yL ips_s11zY ma_s11zZ = Gui.Generic.Classes.$w$cgToInputAlt$113 a9_s11yM lvl37_s11zO (Gui.Generic.Classes.$w$cgToInputAlt$112 lvl34_s11zI lvl35_s11zK lvl36_s11zM (Gui.Generic.Classes.$w$cgToInputAlt$111 lvl28_s11yQ lvl30_s11zf lvl31_s11zh lvl32_s11zj (lvl39_s11zU w2_s11yL ips_s11zY (Gui.Generic.Classes.$w$cgToInputAlt$51 ma_s11zZ))) (lvl38_s11zR w2_s11yL ips_s11zY (Gui.Generic.Classes.$w$cgToInputAlt$52 ma_s11zZ)))
Gui.Generic.Classes.$w$cgToInputAlt$111 lvl28_s11yQ lvl30_s11zf lvl31_s11zh lvl32_s11zj m1_s11Ak ds_s11An = select ds_s11An (<{GHC.Tuple.(,)}> a10_s11Ar <{s'_s11Av}> -> select a10_s11Ar (<{GHC.Tuple.(,)}> lu_s11AS li_s11AZ -> lvl32_s11zj (lvl31_s11zh (m1_s11Ak <{s'_s11Av}>) lvl30_s11zf) (Gui.Generic.Classes.$w$cgToInputAlt$114 li_s11AZ lu_s11AS lvl28_s11yQ)))
Gui.Generic.Classes.$w$cgToInputAlt$114 li_s11AZ lu_s11AS lvl28_s11yQ ds1_s11AA = select ds1_s11AA (<{GHC.Tuple.(,)}> a11_s11AE <{s'1_s11B5}> -> select a11_s11AE (<{GHC.Tuple.(,)}> ru_s11AW ri_s11B0 -> lvl28_s11yQ (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> (Gui.Generic.Classes.$w$cgToInputAlt$115 lu_s11AS ru_s11AW) (<{GHC.Base.++}> li_s11AZ ri_s11B0)) <{s'1_s11B5}>)))
Gui.Generic.Classes.$w$cgToInputAlt$115 lu_s11AS ru_s11AW ds2_s11AK eta_s11AM = select ds2_s11AK (Data.Maybe.Nothing  -> Javascript.Utils.dumpString1 Gui.Generic.Classes.lvl25 eta_s11AM) (Data.Maybe.Just ds3_s11AO -> select ds3_s11AO (GHC.Generics.L1 ma1_s11AR -> lu_s11AS (Data.Maybe.Just ma1_s11AR) eta_s11AM) (GHC.Generics.R1 ma1_s11AV -> ru_s11AW (Data.Maybe.Just ma1_s11AV) eta_s11AM))
Gui.Generic.Classes.$w$cgToInputAlt$112 lvl34_s11zI lvl35_s11zK lvl36_s11zM lvl40_s11B9 m_s11A9 ds_s11Bc = lvl36_s11zM (lvl35_s11zK (m_s11A9 (Gui.Generic.Classes.$w$cgToInputAlt$50 ds_s11Bc)) lvl34_s11zI) lvl40_s11B9
Gui.Generic.Classes.$w$cgToInputAlt$113 a9_s11yM lvl37_s11zO lvl41_s11Bm eta_s11Bo = lvl37_s11zO (a9_s11yM eta_s11Bo) lvl41_s11Bm
Gui.Generic.Classes.$w$cgToInputAlt$50 ds_s11Bc = select ds_s11Bc (<{GHC.Tuple.(,)}> a10_s11Oo <{s'_s11Bg}> -> <{s'_s11Bg}>)
Gui.Generic.Classes.$w$cgToInputAlt$51 ma_s11zZ = select ma_s11zZ (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just x3_s11Ad -> select x3_s11Ad (GHC.Generics.L1 ipv_s11Op -> Data.Maybe.Nothing) (GHC.Generics.R1 r_s11Ah -> Data.Maybe.Just r_s11Ah))
Gui.Generic.Classes.$w$cgToInputAlt$52 ma_s11zZ = select ma_s11zZ (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just x3_s11A2 -> select x3_s11A2 (GHC.Generics.L1 r_s11A5 -> Data.Maybe.Just r_s11A5) (GHC.Generics.R1 ipv_s11Bs -> Data.Maybe.Nothing))
Gui.Generic.Classes.$w$cgToInputAlt$53 ds_s11zo = select ds_s11zo (<{GHC.Tuple.(,)}> a10_s11Or <{s'_s11zD}> -> <{s'_s11zD}>)
Gui.Generic.Classes.$w$cgToInputAlt$54 ds_s11zo = select ds_s11zo (<{GHC.Tuple.(,)}> a10_s11zs <{s'_s11Og}> -> select a10_s11zs (<{GHC.Tuple.(,)}> a11_s11zw b_s11zx -> <{GHC.Tuple.(,)}> a11_s11zw (GHC.Base.map Gui.Generic.Classes.a7 b_s11zx)))
Gui.Generic.Classes.$w$cgToInputAlt$55 ds_s11yV = select ds_s11yV (<{GHC.Tuple.(,)}> a10_s11Os <{s'_s11za}> -> <{s'_s11za}>)
Gui.Generic.Classes.$w$cgToInputAlt$56 ds_s11yV = select ds_s11yV (<{GHC.Tuple.(,)}> a10_s11yZ <{s'_s11Od}> -> select a10_s11yZ (<{GHC.Tuple.(,)}> a11_s11z3 b_s11z4 -> <{GHC.Tuple.(,)}> a11_s11z3 (GHC.Base.map Gui.Generic.Classes.a8 b_s11z4)))
<{Gui.Generic.Classes.$fGToInputAlts:+:_$cgToInputAlt}> w_s11BF w1_s11BG w2_s11BH w3_s11BC w4_s11BD w5_s11BE = Gui.Generic.Classes.$w$cgToInputAlt w3_s11BC w4_s11BD w5_s11BE
<{Gui.Generic.Classes.$fGToInputAlts:+:}> $dGToInput_s11BN $dGSelAlt_s11BT $dGSelAlt1_s11BU $dGToInputAlt_s11BP $dGToInputAlt1_s11BQ = <{Gui.Generic.Classes.D:GToInputAlt}> $dGToInput_s11BN (<{Gui.Generic.Classes.$fGToInputAlts:+:$116}> $dGToInputAlt1_s11BQ $dGToInputAlt_s11BP)
<{Gui.Generic.Classes.$fGToInputAlts:+:$116}> $dGToInputAlt1_s11BQ $dGToInputAlt_s11BP w_s11BR = Gui.Generic.Classes.$w$cgToInputAlt $dGToInputAlt_s11BP $dGToInputAlt1_s11BQ w_s11BR
Gui.Generic.Classes.lvl26 =: GHC.CString.unpackCString# "Normal to alt f g"
Gui.Generic.Classes.lvl27 eta_s11BW = Javascript.Utils.dumpString1 Gui.Generic.Classes.lvl26 eta_s11BW
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> $dGSelAlt_s11De $dGSelAlt1_s11Df $dGToInputAlt_s11Ci $dGToInputAlt1_s11Cj $dMonadIO_s11C3 = let $dMonad_s11C6 = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s11C3 in <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$117}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s11C3 Gui.Generic.Classes.lvl27) (GHC.Base.return $dMonad_s11C6) (<{GHC.Base.>>=}> $dMonad_s11C6) (<{GHC.Base.>>=}> $dMonad_s11C6) (<{GHC.Base.>>=}> $dMonad_s11C6) (<{GHC.Base.>>=}> $dMonad_s11C6) (Gui.Generic.Classes.$w$cgToInputAlt $dGToInputAlt_s11Ci $dGToInputAlt1_s11Cj $dMonadIO_s11C3)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$117}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 a9_s11C4 lvl28_s11C8 lvl29_s11Ca lvl30_s11Cc lvl31_s11Ce lvl32_s11Cg lvl33_s11Ck ips_s11CV sigIn_s11Cp = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$120}> a9_s11C4 lvl32_s11Cg (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$119}> (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s11C3 (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$121}> sigIn_s11Cp)) lvl31_s11Ce (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$118}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 ips_s11CV lvl28_s11C8 lvl29_s11Ca lvl30_s11Cc lvl33_s11Ck sigIn_s11Cp))
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$118}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 ips_s11CV lvl28_s11C8 lvl29_s11Ca lvl30_s11Cc lvl33_s11Ck sigIn_s11Cp ds_s11CP = let ma_s11CU = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$58}> ds_s11CP in lvl30_s11Cc (lvl33_s11Ck ips_s11CV ma_s11CU (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$59}> ds_s11CP)) (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$122}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 lvl28_s11C8 lvl29_s11Ca ma_s11CU sigIn_s11Cp)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$122}> $dGSelAlt1_s11Df $dGSelAlt_s11De $dMonadIO_s11C3 lvl28_s11C8 lvl29_s11Ca ma_s11CU sigIn_s11Cp ds1_s11D6 = lvl29_s11Ca (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$134}> ds1_s11D6 lvl28_s11C8) (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$123}> (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s11C3 (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$124}> $dGSelAlt1_s11Df $dGSelAlt_s11De ds1_s11D6 ma_s11CU sigIn_s11Cp)))
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$134}> ds1_s11D6 lvl28_s11C8 = let eta_s11Dr = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$60}> ds1_s11D6 in lvl28_s11C8 (<{GHC.Tuple.(,)}> eta_s11Dr eta_s11Dr)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$123}> lvl35_s11Dl ds2_s11Dw = lvl35_s11Dl (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$61}> ds2_s11Dw)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$124}> $dGSelAlt1_s11Df $dGSelAlt_s11De ds1_s11D6 ma_s11CU sigIn_s11Cp w_s11Di = select ds1_s11D6 (<{GHC.Tuple.(,)}> a11_s11Da <{s'_s11OW}> -> select a11_s11Da (<{GHC.Tuple.(,)}> ww_s11Dg ww1_s11Dh -> Gui.Generic.Classes.$wa $dGSelAlt_s11De $dGSelAlt1_s11Df ma_s11CU sigIn_s11Cp ww_s11Dg ww1_s11Dh w_s11Di))
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$119}> a10_s11CL lvl31_s11Ce lvl34_s11DE ds_s11DH = lvl31_s11Ce (a10_s11CL (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$57}> ds_s11DH)) lvl34_s11DE
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$120}> a9_s11C4 lvl32_s11Cg lvl35_s11DP eta_s11DR = lvl32_s11Cg (a9_s11C4 eta_s11DR) lvl35_s11DP
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$121}> sigIn_s11Cp s_s11Cq = let !ds1_s11DX = FRP.Fursuit.Signal.compile1 sigIn_s11Cp s_s11Cq in select ds1_s11DX (<{GHC.Tuple.(,)}> ipv_s11Cu ipv1_s11Cv -> let !ds2_s11DW = ipv1_s11Cv ipv_s11Cu in select ds2_s11DW (<{GHC.Tuple.(,)}> ipv2_s11Cz ipv3_s11CA -> <{GHC.Tuple.(,)}> ipv2_s11Cz (<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$62}> ipv3_s11CA)))
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$57}> ds_s11DH = select ds_s11DH (<{GHC.Tuple.(,)}> a11_s11OZ <{s'_s11DL}> -> <{s'_s11DL}>)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$58}> ds_s11CP = select ds_s11CP (<{GHC.Tuple.(,)}> a11_s11CT <{s'_s11P0}> -> a11_s11CT)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$59}> ds_s11CP = select ds_s11CP (<{GHC.Tuple.(,)}> a11_s11OV <{s'_s11CZ}> -> <{s'_s11CZ}>)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$60}> ds1_s11D6 = select ds1_s11D6 (<{GHC.Tuple.(,)}> a11_s11OR <{s'_s11Dq}> -> <{s'_s11Dq}>)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$61}> ds2_s11Dw = select ds2_s11Dw (<{GHC.Tuple.(,)}> a11_s11OS <{s'_s11DA}> -> <{s'_s11DA}>)
<{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput$62}> ipv3_s11CA = select ipv3_s11CA (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a11_s11CD -> select a11_s11CD (<{GHC.Tuple.(,)}> x3_s11CH ds3_s11DY -> x3_s11CH))
<{Gui.Generic.Classes.$fGToInputs:+:}> eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Gui.Generic.Classes.$fGToInputs:+:_$cgToInput}> eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1