FRP.Fursuit.Pipe.trigger3 s_s3Lv = <{GHC.Tuple.(,)}> s_s3Lv <{GHC.Tuple.()}>
FRP.Fursuit.Pipe.trigger4 arg_s3Lz ds_s3LB eta_s3LL = let !nt_s3LH = arg_s3Lz in select ds_s3LB (Data.IntMap.Base.Bin rb_s3PM rb1_s3PN l_s3LI r_s3LK -> FRP.Fursuit.Pipe.trigger4 (FRP.Fursuit.Pipe.trigger4$1 l_s3LI nt_s3LH) r_s3LK eta_s3LL) (Data.IntMap.Base.Tip rb_s3PR x_s3LS -> let !ds1_s3PQ = nt_s3LH eta_s3LL in select ds1_s3PQ (<{GHC.Tuple.(,)}> ipv_s3LR ipv1_s3PP -> x_s3LS ipv_s3LR)) (Data.IntMap.Base.Nil  -> nt_s3LH eta_s3LL)
FRP.Fursuit.Pipe.trigger4$1 l_s3LI nt_s3LH eta_B1_B1 = FRP.Fursuit.Pipe.trigger4 nt_s3LH l_s3LI eta_B1_B1
FRP.Fursuit.Pipe.$wa w_s3M3 ww_s3LW w1_s3LX = let !ds1_s3Q6 = readMutVar# ww_s3LW w1_s3LX in select ds1_s3Q6 (<{GHC.Tuple.(,)}> ipv_s3M1 ipv1_s3Mi -> let !s2#_s3M7 = writeMutVar# ww_s3LW true ipv_s3M1 in select w_s3M3 (GHC.STRef.STRef var#_s3M6 -> let !ds2_s3Q4 = readMutVar# var#_s3M6 s2#_s3M7 in select ds2_s3Q4 (<{GHC.Tuple.(,)}> ipv2_s3Me ipv3_s3Mb -> select ipv3_s3Mb (_ -> let !ds3_s3Q3 = FRP.Fursuit.Pipe.trigger4 FRP.Fursuit.Pipe.trigger3 ipv3_s3Mb ipv2_s3Me in select ds3_s3Q3 (<{GHC.Tuple.(,)}> ipv4_s3Mj ipv5_s3Q2 -> let !s2#1_s3Ml = writeMutVar# ww_s3LW ipv1_s3Mi ipv4_s3Mj in <{GHC.Tuple.(,)}> s2#1_s3Ml <{GHC.Tuple.()}>)) (Data.IntMap.Base.Bin rb_s3Qa rb1_s3Mq l_s3Ms r_s3Mu -> let !wild2_s3Q9 = <{<#}> rb1_s3Mq 0 in if wild2_s3Q9 (let !ds3_s3Qe = FRP.Fursuit.Pipe.trigger4 (FRP.Fursuit.Pipe.$wa$3 r_s3Mu) l_s3Ms ipv2_s3Me in select ds3_s3Qe (<{GHC.Tuple.(,)}> ipv4_s3MF ipv5_s3Qd -> let !s2#1_s3MH = writeMutVar# ww_s3LW ipv1_s3Mi ipv4_s3MF in <{GHC.Tuple.(,)}> s2#1_s3MH <{GHC.Tuple.()}>)) (let !ds3_s3Qb = FRP.Fursuit.Pipe.trigger4 (FRP.Fursuit.Pipe.$wa$2 l_s3Ms) r_s3Mu ipv2_s3Me in select ds3_s3Qb (<{GHC.Tuple.(,)}> ipv4_s3My ipv5_s3Q8 -> let !s2#1_s3MA = writeMutVar# ww_s3LW ipv1_s3Mi ipv4_s3My in <{GHC.Tuple.(,)}> s2#1_s3MA <{GHC.Tuple.()}>))))))
FRP.Fursuit.Pipe.$wa$2 l_s3Ms eta_B1_B1 = FRP.Fursuit.Pipe.trigger4 FRP.Fursuit.Pipe.trigger3 l_s3Ms eta_B1_B1
FRP.Fursuit.Pipe.$wa$3 r_s3Mu eta_B1_B1 = FRP.Fursuit.Pipe.trigger4 FRP.Fursuit.Pipe.trigger3 r_s3Mu eta_B1_B1
FRP.Fursuit.Pipe.trigger2 w_s3MO w1_s3ML w2_s3MQ = select w1_s3ML (GHC.STRef.STRef ww_s3MP -> FRP.Fursuit.Pipe.$wa w_s3MO ww_s3MP w2_s3MQ)
<{FRP.Fursuit.Pipe.trigger'}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Pipe.trigger2 eta_B3_B3 eta_B2_B2 eta_B1_B1
FRP.Fursuit.Pipe.trigger1 ds_s3MT eta_s3N0 = select ds_s3MT (FRP.Fursuit.Signal.P value_s3Qj listeners_s3MY origin_s3MZ -> FRP.Fursuit.Pipe.trigger2 listeners_s3MY origin_s3MZ eta_s3N0)
FRP.Fursuit.Pipe.trigger eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Pipe.trigger1 eta_B2_B2 eta_B1_B1
FRP.Fursuit.Pipe.triggerSignal1 s_s3N3 eta_s3N5 = let !wild_s3Qn = FRP.Fursuit.Signal.sourceOrigins s_s3N3 in select wild_s3Qn (<{GHC.Types.[]}>  -> <{GHC.Tuple.(,)}> eta_s3N5 <{GHC.Tuple.()}>) (<{GHC.Types.:}> <{so'_s3N8}> ds_s3Qq -> select <{so'_s3N8}> (<{GHC.Tuple.(,)}> ds1_s3Nf y_s3Nc -> select y_s3Nc (GHC.STRef.STRef ww_s3Ng -> FRP.Fursuit.Pipe.$wa ds1_s3Nf ww_s3Ng eta_s3N5)))
FRP.Fursuit.Pipe.triggerSignal eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Pipe.triggerSignal1 eta_B2_B2 eta_B1_B1
FRP.Fursuit.Pipe.write2 arg_s3Nk ds_s3Nm eta_s3Nw = let !nt_s3Ns = arg_s3Nk in select ds_s3Nm (Data.IntMap.Base.Bin rb_s3Qv rb1_s3Qw l_s3Nt r_s3Nv -> FRP.Fursuit.Pipe.write2 (FRP.Fursuit.Pipe.write2$4 l_s3Nt nt_s3Ns) r_s3Nv eta_s3Nw) (Data.IntMap.Base.Tip rb_s3QA x_s3ND -> let !ds1_s3Qz = nt_s3Ns eta_s3Nw in select ds1_s3Qz (<{GHC.Tuple.(,)}> ipv_s3NC ipv1_s3Qy -> x_s3ND ipv_s3NC)) (Data.IntMap.Base.Nil  -> nt_s3Ns eta_s3Nw)
FRP.Fursuit.Pipe.write2$4 l_s3Nt nt_s3Ns eta_B1_B1 = FRP.Fursuit.Pipe.write2 nt_s3Ns l_s3Nt eta_B1_B1
FRP.Fursuit.Pipe.$wa1 ww_s3NO ww1_s3NT ww2_s3NL w_s3NJ w1_s3NM = let !x_s3NP = w_s3NJ, !s2#_s3NR = writeMutVar# ww2_s3NL true w1_s3NM, !s2#1_s3NU = writeMutVar# ww_s3NO (Data.Maybe.Just x_s3NP) s2#_s3NR, !ds1_s3QL = readMutVar# ww1_s3NT s2#1_s3NU in select ds1_s3QL (<{GHC.Tuple.(,)}> ipv_s3O1 ipv1_s3NY -> select ipv1_s3NY (_ -> let !ds2_s3QK = FRP.Fursuit.Pipe.write2 FRP.Fursuit.Pipe.trigger3 ipv1_s3NY ipv_s3O1 in select ds2_s3QK (<{GHC.Tuple.(,)}> ipv2_s3O5 ipv3_s3QJ -> let !s2#2_s3O7 = writeMutVar# ww2_s3NL false ipv2_s3O5 in <{GHC.Tuple.(,)}> s2#2_s3O7 <{GHC.Tuple.()}>)) (Data.IntMap.Base.Bin rb_s3QG rb1_s3Oc l_s3Oe r_s3Og -> let !wild1_s3QM = <{<#}> rb1_s3Oc 0 in if wild1_s3QM (let !ds2_s3QO = FRP.Fursuit.Pipe.write2 (FRP.Fursuit.Pipe.$wa1$6 r_s3Og) l_s3Oe ipv_s3O1 in select ds2_s3QO (<{GHC.Tuple.(,)}> ipv2_s3Or ipv3_s3QI -> let !s2#2_s3Ot = writeMutVar# ww2_s3NL false ipv2_s3Or in <{GHC.Tuple.(,)}> s2#2_s3Ot <{GHC.Tuple.()}>)) (let !ds2_s3QN = FRP.Fursuit.Pipe.write2 (FRP.Fursuit.Pipe.$wa1$5 l_s3Oe) r_s3Og ipv_s3O1 in select ds2_s3QN (<{GHC.Tuple.(,)}> ipv2_s3Ok ipv3_s3QF -> let !s2#2_s3Om = writeMutVar# ww2_s3NL false ipv2_s3Ok in <{GHC.Tuple.(,)}> s2#2_s3Om <{GHC.Tuple.()}>))))
FRP.Fursuit.Pipe.$wa1$5 l_s3Oe eta_B1_B1 = FRP.Fursuit.Pipe.write2 FRP.Fursuit.Pipe.trigger3 l_s3Oe eta_B1_B1
FRP.Fursuit.Pipe.$wa1$6 r_s3Og eta_B1_B1 = FRP.Fursuit.Pipe.write2 FRP.Fursuit.Pipe.trigger3 r_s3Og eta_B1_B1
FRP.Fursuit.Pipe.write1 w_s3Ox w1_s3OO w2_s3OP = select w_s3Ox (FRP.Fursuit.Signal.P ww_s3OC ww1_s3OF ww2_s3OI -> select ww_s3OC (GHC.STRef.STRef ww4_s3OL -> select ww1_s3OF (GHC.STRef.STRef ww6_s3OM -> select ww2_s3OI (GHC.STRef.STRef ww8_s3ON -> FRP.Fursuit.Pipe.$wa1 ww4_s3OL ww6_s3OM ww8_s3ON w1_s3OO w2_s3OP))))
FRP.Fursuit.Pipe.write eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Pipe.write1 eta_B3_B3 eta_B2_B2 eta_B1_B1
FRP.Fursuit.Pipe.emptyPipe1 eta_s3OR = let !ds_s3QZ = newMutVar# Data.Maybe.Nothing eta_s3OR in select ds_s3QZ (<{GHC.Tuple.(,)}> ipv_s3OV ipv1_s3Pa -> let !ds1_s3QY = newMutVar# false ipv_s3OV in select ds1_s3QY (<{GHC.Tuple.(,)}> ipv2_s3OZ ipv3_s3P7 -> let !ds2_s3QX = newMutVar# Data.IntMap.Base.Nil ipv2_s3OZ in select ds2_s3QX (<{GHC.Tuple.(,)}> ipv4_s3Pc ipv5_s3P4 -> let a_s3P5 = GHC.STRef.STRef ipv5_s3P4, a1_s3P8 = GHC.STRef.STRef ipv3_s3P7, a2_s3Pb = GHC.STRef.STRef ipv1_s3Pa in <{GHC.Tuple.(,)}> ipv4_s3Pc (<{GHC.Tuple.(,)}> (FRP.Fursuit.Signal.P a2_s3Pb a_s3P5 a1_s3P8) (FRP.Fursuit.Signal.Pipe a2_s3Pb a_s3P5 a1_s3P8)))))
FRP.Fursuit.Pipe.emptyPipe eta_B1_B1 = FRP.Fursuit.Pipe.emptyPipe1 eta_B1_B1
FRP.Fursuit.Pipe.pipe1 initially_s3Pk eta_s3Pm = let !initially1_s3PD = initially_s3Pk, !ds1_s3R8 = FRP.Fursuit.Pipe.emptyPipe1 eta_s3Pm in select ds1_s3R8 (<{GHC.Tuple.(,)}> ipv_s3PF ipv1_s3Pq -> select ipv1_s3Pq (<{GHC.Tuple.(,)}> ds_s3Pu ds2_s3R7 -> select ds_s3Pu (FRP.Fursuit.Signal.P ref_s3Pz ds3_s3R4 ds4_s3R5 -> select ref_s3Pz (GHC.STRef.STRef var#_s3PC -> let !s2#_s3PH = writeMutVar# var#_s3PC (Data.Maybe.Just initially1_s3PD) ipv_s3PF in <{GHC.Tuple.(,)}> s2#_s3PH ipv1_s3Pq))))
FRP.Fursuit.Pipe.pipe eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Pipe.pipe1 eta_B2_B2 eta_B1_B1