:: FRP.Fursuit.Signal.Signal = FRP.Fursuit.Signal.App a1 a2 | FRP.Fursuit.Signal.Pure a1 | FRP.Fursuit.Signal.Pipe a1 a2 a3 | FRP.Fursuit.Signal.Filter a1 a2 | FRP.Fursuit.Signal.Accum a1 a2 | FRP.Fursuit.Signal.New a1 | FRP.Fursuit.Signal.Union a1 a2
:: FRP.Fursuit.Signal.Pipe = FRP.Fursuit.Signal.P a1 a2 a3
FRP.Fursuit.Signal.cbref ds_s1gU = select ds_s1gU (FRP.Fursuit.Signal.P ds1_s1p0 ds2_s1gZ ds3_s1p1 -> ds2_s1gZ)
FRP.Fursuit.Signal.origref ds_s1h1 = select ds_s1h1 (FRP.Fursuit.Signal.P ds1_s1p7 ds2_s1p8 ds3_s1h6 -> ds3_s1h6)
FRP.Fursuit.Signal.piperef ds_s1h8 = select ds_s1h8 (FRP.Fursuit.Signal.P ds1_s1hd ds2_s1pe ds3_s1pf -> ds1_s1hd)
FRP.Fursuit.Signal.lvl =: GHC.Types.I# 0
FRP.Fursuit.Signal.lvl1 s_s1hf = let !<{s'_s1hh}> = noDuplicate# s_s1hf, !ds_s1pn = newMutVar# FRP.Fursuit.Signal.lvl <{s'_s1hh}> in select ds_s1pn (<{GHC.Tuple.(,)}> ipv_s1hl ipv1_s1hm -> <{GHC.Tuple.(,)}> ipv_s1hl (GHC.STRef.STRef ipv1_s1hm))
FRP.Fursuit.Signal.sinkIDs =: GHC.IO.unsafeDupablePerformIO FRP.Fursuit.Signal.lvl1
FRP.Fursuit.Signal.$fFunctorSignal_$cfmap f_s1hq x_s1hs = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure f_s1hq) x_s1hs
<{FRP.Fursuit.Signal.$fFunctorSignal_$c<$}> x_s1hw eta_s1hB = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure (<{FRP.Fursuit.Signal.$fFunctorSignal_$c<$$8}> x_s1hw)) eta_s1hB
<{FRP.Fursuit.Signal.$fFunctorSignal_$c<$$8}> x_s1hw ds_s1hx = x_s1hw
FRP.Fursuit.Signal.$fFunctorSignal =: <{GHC.Base.D:Functor}> FRP.Fursuit.Signal.$fFunctorSignal_$cfmap <{FRP.Fursuit.Signal.$fFunctorSignal_$c<$}>
FRP.Fursuit.Signal.$fApplicativeSignal3 ds_s1hF eta_s1hE = eta_s1hE
FRP.Fursuit.Signal.$fApplicativeSignal1 =: FRP.Fursuit.Signal.Pure GHC.Base.const
<{FRP.Fursuit.Signal.$fApplicativeSignal_$c<*}> eta1_s1hI eta2_s1hK = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App FRP.Fursuit.Signal.$fApplicativeSignal1 eta1_s1hI) eta2_s1hK
FRP.Fursuit.Signal.$fApplicativeSignal2 =: FRP.Fursuit.Signal.Pure FRP.Fursuit.Signal.$fApplicativeSignal3
<{FRP.Fursuit.Signal.$fApplicativeSignal_$c*>}> eta1_s1hN eta2_s1hP = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App FRP.Fursuit.Signal.$fApplicativeSignal2 eta1_s1hN) eta2_s1hP
FRP.Fursuit.Signal.$fApplicativeSignal =: <{Control.Applicative.D:Applicative}> FRP.Fursuit.Signal.$fFunctorSignal FRP.Fursuit.Signal.Pure FRP.Fursuit.Signal.App <{FRP.Fursuit.Signal.$fApplicativeSignal_$c*>}> <{FRP.Fursuit.Signal.$fApplicativeSignal_$c<*}>
FRP.Fursuit.Signal.sink2 ds_s1hS eta_s1hX = select ds_s1hS (FRP.Fursuit.Signal.App sf_s1hW sx_s1i1 -> let !ds1_s1py = FRP.Fursuit.Signal.sink2 sf_s1hW eta_s1hX in select ds1_s1py (<{GHC.Tuple.(,)}> ipv_s1i2 ipv1_s1i9 -> let !ds2_s1px = FRP.Fursuit.Signal.sink2 sx_s1i1 ipv_s1i2 in select ds2_s1px (<{GHC.Tuple.(,)}> ipv2_s1i6 ipv3_s1ie -> <{GHC.Tuple.(,)}> ipv2_s1i6 (FRP.Fursuit.Signal.sink2$9 ipv1_s1i9 ipv3_s1ie)))) (FRP.Fursuit.Signal.Pure x_s1iM -> <{GHC.Tuple.(,)}> eta_s1hX (FRP.Fursuit.Signal.sink2$10 x_s1iM)) (FRP.Fursuit.Signal.Pipe value_s1iV ds1_s1pO origin_s1j3 -> <{GHC.Tuple.(,)}> eta_s1hX (FRP.Fursuit.Signal.sink2$11 origin_s1j3 value_s1iV)) (FRP.Fursuit.Signal.Filter predicate_s1jS s_s1jm -> let !ds1_s1pX = FRP.Fursuit.Signal.sink2 s_s1jm eta_s1hX in select ds1_s1pX (<{GHC.Tuple.(,)}> ipv_s1jq ipv1_s1jr -> let !ds2_s1pW = ipv1_s1jr ipv_s1jq in select ds2_s1pW (<{GHC.Tuple.(,)}> ipv2_s1kt ipv3_s1kr -> select ipv3_s1kr (Data.Maybe.Nothing  -> let !ds3_s1q9 = newMutVar# Data.Maybe.Nothing ipv2_s1kt in select ds3_s1q9 (<{GHC.Tuple.(,)}> ipv4_s1kx ipv5_s1ky -> FRP.Fursuit.Signal.sink2$1 predicate_s1jS s_s1jm ipv4_s1kx GHC.Prim.coercionToken# ipv5_s1ky)) (Data.Maybe.Just ds3_s1kA -> select ds3_s1kA (<{GHC.Tuple.(,)}> initial_s1kE ds4_s1pR -> let !wild3_s1qc = predicate_s1jS initial_s1kE in if wild3_s1qc (let !ds5_s1qe = newMutVar# (Data.Maybe.Just initial_s1kE) ipv2_s1kt in select ds5_s1qe (<{GHC.Tuple.(,)}> ipv4_s1kP ipv5_s1kQ -> FRP.Fursuit.Signal.sink2$1 predicate_s1jS s_s1jm ipv4_s1kP GHC.Prim.coercionToken# ipv5_s1kQ)) (let !ds5_s1qb = newMutVar# Data.Maybe.Nothing ipv2_s1kt in select ds5_s1qb (<{GHC.Tuple.(,)}> ipv4_s1kJ ipv5_s1kK -> FRP.Fursuit.Signal.sink2$1 predicate_s1jS s_s1jm ipv4_s1kJ GHC.Prim.coercionToken# ipv5_s1kK))))))) (FRP.Fursuit.Signal.Accum initially_s1kX s_s1kT -> let !ds1_s1ql = FRP.Fursuit.Signal.sink2 s_s1kT eta_s1hX in select ds1_s1ql (<{GHC.Tuple.(,)}> ipv_s1kY ipv1_s1l5 -> let !ds2_s1qk = newMutVar# initially_s1kX ipv_s1kY in select ds2_s1qk (<{GHC.Tuple.(,)}> ipv2_s1l2 ipv3_s1lb -> <{GHC.Tuple.(,)}> ipv2_s1l2 (FRP.Fursuit.Signal.sink2$12 ipv1_s1l5 ipv3_s1lb)))) (FRP.Fursuit.Signal.New signal_s1lP -> FRP.Fursuit.Signal.sink2 signal_s1lP eta_s1hX) (FRP.Fursuit.Signal.Union a_s1lS b_s1lW -> let !ds1_s1qI = FRP.Fursuit.Signal.sink2 a_s1lS eta_s1hX in select ds1_s1qI (<{GHC.Tuple.(,)}> ipv_s1lX ipv1_s1m2 -> let !ds2_s1qH = FRP.Fursuit.Signal.sink2 b_s1lW ipv_s1lX in select ds2_s1qH (<{GHC.Tuple.(,)}> ipv2_s1m1 ipv3_s1mg -> let !ds3_s1qG = ipv1_s1m2 ipv2_s1m1 in select ds3_s1qG (<{GHC.Tuple.(,)}> ipv4_s1mR ipv5_s1mP -> select ipv5_s1mP (Data.Maybe.Nothing  -> let !ds4_s1qN = ipv3_s1mg ipv4_s1mR in select ds4_s1qN (<{GHC.Tuple.(,)}> ipv6_s1mX ipv7_s1mV -> select ipv7_s1mV (Data.Maybe.Nothing  -> let !ds5_s1qL = newMutVar# Data.Maybe.Nothing ipv6_s1mX in select ds5_s1qL (<{GHC.Tuple.(,)}> ipv8_s1n1 ipv9_s1n2 -> FRP.Fursuit.Signal.sink2$2 ipv1_s1m2 ipv3_s1mg ipv8_s1n1 GHC.Prim.coercionToken# ipv9_s1n2)) (Data.Maybe.Just ds5_s1n4 -> select ds5_s1n4 (<{GHC.Tuple.(,)}> x_s1n8 ds6_s1qC -> let !ds7_s1qQ = newMutVar# (Data.Maybe.Just x_s1n8) ipv6_s1mX in select ds7_s1qQ (<{GHC.Tuple.(,)}> ipv8_s1nd ipv9_s1ne -> FRP.Fursuit.Signal.sink2$2 ipv1_s1m2 ipv3_s1mg ipv8_s1nd GHC.Prim.coercionToken# ipv9_s1ne))))) (Data.Maybe.Just ds4_s1ng -> select ds4_s1ng (<{GHC.Tuple.(,)}> x_s1nk ds5_s1qA -> let !ds6_s1qS = newMutVar# (Data.Maybe.Just x_s1nk) ipv4_s1mR in select ds6_s1qS (<{GHC.Tuple.(,)}> ipv6_s1np ipv7_s1nq -> FRP.Fursuit.Signal.sink2$2 ipv1_s1m2 ipv3_s1mg ipv6_s1np GHC.Prim.coercionToken# ipv7_s1nq)))))))
FRP.Fursuit.Signal.sink2$9 ipv1_s1i9 ipv3_s1ie s_s1i8 = let !ds3_s1pw = ipv1_s1i9 s_s1i8 in select ds3_s1pw (<{GHC.Tuple.(,)}> ipv4_s1id ipv5_s1ij -> let !ds4_s1pv = ipv3_s1ie ipv4_s1id in select ds4_s1pv (<{GHC.Tuple.(,)}> ipv6_s1ii ipv7_s1iq -> <{GHC.Tuple.(,)}> ipv6_s1ii (FRP.Fursuit.Signal.sink2$4 ipv5_s1ij ipv7_s1iq)))
FRP.Fursuit.Signal.sink2$10 x_s1iM s_s1iL = <{GHC.Tuple.(,)}> s_s1iL (Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s1iM false))
FRP.Fursuit.Signal.sink2$11 origin_s1j3 value_s1iV s_s1iZ = select value_s1iV (GHC.STRef.STRef var#_s1iY -> let !ds2_s1pM = readMutVar# var#_s1iY s_s1iZ in select ds2_s1pM (<{GHC.Tuple.(,)}> ipv_s1j7 ipv1_s1jc -> select origin_s1j3 (GHC.STRef.STRef var#1_s1j6 -> let !ds3_s1pK = readMutVar# var#1_s1j6 ipv_s1j7 in select ds3_s1pK (<{GHC.Tuple.(,)}> ipv2_s1jb ipv3_s1jg -> <{GHC.Tuple.(,)}> ipv2_s1jb (FRP.Fursuit.Signal.sink2$5 ipv1_s1jc ipv3_s1jg)))))
FRP.Fursuit.Signal.sink2$12 ipv1_s1l5 ipv3_s1lb s1_s1l4 = let !ds3_s1qj = ipv1_s1l5 s1_s1l4 in select ds3_s1qj (<{GHC.Tuple.(,)}> ipv4_s1lc ipv5_s1l9 -> select ipv5_s1l9 (Data.Maybe.Nothing  -> let !ds4_s1qh = readMutVar# ipv3_s1lb ipv4_s1lc in select ds4_s1qh (<{GHC.Tuple.(,)}> ipv6_s1lg ipv7_s1lh -> <{GHC.Tuple.(,)}> ipv6_s1lg (Data.Maybe.Just (<{GHC.Tuple.(,)}> ipv7_s1lh false)))) (Data.Maybe.Just ds4_s1lm -> select ds4_s1lm (<{GHC.Tuple.(,)}> f_s1lE orig_s1lq -> if orig_s1lq (let !ds5_s1qr = readMutVar# ipv3_s1lb ipv4_s1lc in select ds5_s1qr (<{GHC.Tuple.(,)}> ipv6_s1lH ipv7_s1lD -> let !x_s1lG = f_s1lE ipv7_s1lD, !s2#_s1lJ = writeMutVar# ipv3_s1lb x_s1lG ipv6_s1lH in <{GHC.Tuple.(,)}> s2#_s1lJ (Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s1lG true)))) (let !ds5_s1qn = readMutVar# ipv3_s1lb ipv4_s1lc in select ds5_s1qn (<{GHC.Tuple.(,)}> ipv6_s1lv ipv7_s1lw -> <{GHC.Tuple.(,)}> ipv6_s1lv (Data.Maybe.Just (<{GHC.Tuple.(,)}> ipv7_s1lw false)))))))
FRP.Fursuit.Signal.sink2$4 ipv5_s1ij ipv7_s1iq = select ipv5_s1ij (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just x_s1im -> select x_s1im (<{GHC.Tuple.(,)}> f_s1iy origf_s1iA -> select ipv7_s1iq (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just x1_s1it -> select x1_s1it (<{GHC.Tuple.(,)}> x2_s1ix origx_s1iC -> Data.Maybe.Just (<{GHC.Tuple.(,)}> (f_s1iy x2_s1ix) (FRP.Fursuit.Signal.sink2$6 origf_s1iA origx_s1iC))))))
FRP.Fursuit.Signal.sink2$6 origf_s1iA origx_s1iC = if origf_s1iA true origx_s1iC
FRP.Fursuit.Signal.sink2$5 ipv1_s1jc ipv3_s1jg = select ipv1_s1jc (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just x_s1jf -> Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s1jf ipv3_s1jg))
FRP.Fursuit.Signal.sink2$1 predicate_s1jS s_s1jm sc_s1jy sg_s1cO sc1_s1jU = let !ds3_s1pV = FRP.Fursuit.Signal.sink2 s_s1jm sc_s1jy in select ds3_s1pV (<{GHC.Tuple.(,)}> ipv4_s1jC ipv5_s1jF -> <{GHC.Tuple.(,)}> ipv4_s1jC (FRP.Fursuit.Signal.sink2$13 ipv5_s1jF predicate_s1jS sc1_s1jU))
FRP.Fursuit.Signal.sink2$13 ipv5_s1jF predicate_s1jS sc1_s1jU s1_s1jE = let !ds4_s1pU = ipv5_s1jF s1_s1jE in select ds4_s1pU (<{GHC.Tuple.(,)}> ipv6_s1jL ipv7_s1jJ -> select ipv7_s1jJ (Data.Maybe.Nothing  -> <{GHC.Tuple.(,)}> ipv6_s1jL Data.Maybe.Nothing) (Data.Maybe.Just ds5_s1jN -> select ds5_s1jN (<{GHC.Tuple.(,)}> val_s1jR orig_s1k6 -> let !wild3_s1q0 = predicate_s1jS val_s1jR in if wild3_s1q0 (if orig_s1k6 (let !s2#_s1kl = writeMutVar# sc1_s1jU (Data.Maybe.Just val_s1jR) ipv6_s1jL in <{GHC.Tuple.(,)}> s2#_s1kl (Data.Maybe.Just (<{GHC.Tuple.(,)}> val_s1jR true))) (let !ds6_s1q4 = readMutVar# sc1_s1jU ipv6_s1jL in select ds6_s1q4 (<{GHC.Tuple.(,)}> ipv8_s1kd ipv9_s1kb -> select ipv9_s1kb (Data.Maybe.Nothing  -> <{GHC.Tuple.(,)}> ipv8_s1kd Data.Maybe.Nothing) (Data.Maybe.Just lastVal_s1kf -> <{GHC.Tuple.(,)}> ipv8_s1kd (Data.Maybe.Just (<{GHC.Tuple.(,)}> lastVal_s1kf false)))))) (let !ds6_s1pZ = readMutVar# sc1_s1jU ipv6_s1jL in select ds6_s1pZ (<{GHC.Tuple.(,)}> ipv8_s1k0 ipv9_s1jY -> select ipv9_s1jY (Data.Maybe.Nothing  -> <{GHC.Tuple.(,)}> ipv8_s1k0 Data.Maybe.Nothing) (Data.Maybe.Just lastVal_s1k2 -> <{GHC.Tuple.(,)}> ipv8_s1k0 (Data.Maybe.Just (<{GHC.Tuple.(,)}> lastVal_s1k2 false))))))))
FRP.Fursuit.Signal.sink2$2 ipv1_s1m2 ipv3_s1mg sc_s1m9 sg_s1d7 sc1_s1mk = <{GHC.Tuple.(,)}> sc_s1m9 (FRP.Fursuit.Signal.sink2$14 ipv1_s1m2 ipv3_s1mg sc1_s1mk)
FRP.Fursuit.Signal.sink2$14 ipv1_s1m2 ipv3_s1mg sc1_s1mk s_s1mb = let !ds4_s1qF = ipv1_s1m2 s_s1mb in select ds4_s1qF (<{GHC.Tuple.(,)}> ipv6_s1mf ipv7_s1mp -> let !ds5_s1qE = ipv3_s1mg ipv6_s1mf in select ds5_s1qE (<{GHC.Tuple.(,)}> ipv8_s1ml ipv9_s1mq -> let !ds6_s1qD = readMutVar# sc1_s1mk ipv8_s1ml in select ds6_s1qD (<{GHC.Tuple.(,)}> ipv10_s1mx ipv11_s1my -> let !sat_s1qt_s1qt = Data.Maybe.catMaybes1 (<{GHC.Types.:}> ipv7_s1mp (<{GHC.Types.:}> ipv9_s1mq <{GHC.Types.[]}>)), !wild1_s1qK = GHC.List.filter Data.Tuple.snd sat_s1qt_s1qt in select wild1_s1qK (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> ipv10_s1mx (FRP.Fursuit.Signal.sink2$7 ipv11_s1my)) (<{GHC.Types.:}> a1_s1mG ds7_s1qw -> let !s2#_s1mL = writeMutVar# sc1_s1mk (Data.Maybe.Just (Data.Tuple.fst a1_s1mG)) ipv10_s1mx in <{GHC.Tuple.(,)}> s2#_s1mL (Data.Maybe.Just a1_s1mG)))))
FRP.Fursuit.Signal.sink2$7 ipv11_s1my = select ipv11_s1my (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a1_s1mB -> Data.Maybe.Just (<{GHC.Tuple.(,)}> a1_s1mB false))
FRP.Fursuit.Signal.sink_sources ds_s1ns = select ds_s1ns (FRP.Fursuit.Signal.App f_s1nw x_s1ny -> let !sat_s1qU_s1qU = FRP.Fursuit.Signal.sink_sources f_s1nw in <{GHC.Base.++}> sat_s1qU_s1qU (FRP.Fursuit.Signal.sink_sources x_s1ny)) (FRP.Fursuit.Signal.Pure ds1_s1qW -> <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Pipe ds1_s1qX src_s1nE ds2_s1qY -> <{GHC.Types.:}> src_s1nE <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Filter ds1_s1qZ s_s1nH -> FRP.Fursuit.Signal.sink_sources s_s1nH) (FRP.Fursuit.Signal.Accum ds1_s1r0 s_s1nK -> FRP.Fursuit.Signal.sink_sources s_s1nK) (FRP.Fursuit.Signal.New s_s1nM -> FRP.Fursuit.Signal.sink_sources s_s1nM) (FRP.Fursuit.Signal.Union a_s1nP b_s1nR -> let !sat_s1r2_s1r2 = FRP.Fursuit.Signal.sink_sources a_s1nP in <{GHC.Base.++}> sat_s1r2_s1r2 (FRP.Fursuit.Signal.sink_sources b_s1nR))
FRP.Fursuit.Signal.sink1 act_s1oz sig_s1nW eta_s1nX = let !ds1_s1r9 = FRP.Fursuit.Signal.sink2 sig_s1nW eta_s1nX in select ds1_s1r9 (<{GHC.Tuple.(,)}> ipv_s1o4 ipv1_s1ok -> select FRP.Fursuit.Signal.sinkIDs (GHC.STRef.STRef var#_s1o3 -> let !ds2_s1r7 = readMutVar# var#_s1o3 ipv_s1o4 in select ds2_s1r7 (<{GHC.Tuple.(,)}> ipv2_s1of ipv3_s1o8 -> select ipv3_s1o8 (GHC.Types.I# x_s1ob -> let !sat_s1od_s1od = <{+#}> x_s1ob 1, !s2#_s1oY = writeMutVar# var#_s1o3 (GHC.Types.I# sat_s1od_s1od) ipv2_s1of, !sat_s1r3_s1r3 = FRP.Fursuit.Signal.sink_sources sig_s1nW in FRP.Fursuit.Signal.sink1$3 (FRP.Fursuit.Signal.sink1$15 act_s1oz ipv1_s1ok) x_s1ob sat_s1r3_s1r3 s2#_s1oY))))
FRP.Fursuit.Signal.sink1$15 act_s1oz ipv1_s1ok s_s1oj = let !ds3_s1rb = ipv1_s1ok s_s1oj in select ds3_s1rb (<{GHC.Tuple.(,)}> ipv4_s1oq ipv5_s1oo -> select ipv5_s1oo (Data.Maybe.Nothing  -> <{GHC.Tuple.(,)}> ipv4_s1oq <{GHC.Tuple.()}>) (Data.Maybe.Just ds_s1os -> select ds_s1os (<{GHC.Tuple.(,)}> val_s1oy actuallyHappened_s1ow -> if actuallyHappened_s1ow (act_s1oz val_s1oy ipv4_s1oq) (<{GHC.Tuple.(,)}> ipv4_s1oq <{GHC.Tuple.()}>))))
FRP.Fursuit.Signal.sink1$3 a_s1oA x_s1ob ds_s1oE eta1_s1oG = select ds_s1oE (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta1_s1oG <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s1oJ ys_s1oU -> select y_s1oJ (GHC.STRef.STRef var#1_s1oM -> let !ds3_s1rf = readMutVar# var#1_s1oM eta1_s1oG in select ds3_s1rf (<{GHC.Tuple.(,)}> ipv4_s1oS ipv5_s1oQ -> let !s2#1_s1oV = writeMutVar# var#1_s1oM (Data.IntMap.Base.$winsert x_s1ob a_s1oA ipv5_s1oQ) ipv4_s1oS in FRP.Fursuit.Signal.sink1$3 a_s1oA x_s1ob ys_s1oU s2#1_s1oV)))
FRP.Fursuit.Signal.sink eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Signal.sink1 eta_B3_B3 eta_B2_B2 eta_B1_B1