FRP.Fursuit.Pipe.emptyPipe1 eta_s24m = let !ds_s26T = newMutVar# Data.Maybe.Nothing eta_s24m in select ds_s26T (<{GHC.Tuple.(,)}> ipv_s24q ipv1_s24F -> let !ds1_s26S = newMutVar# false ipv_s24q in select ds1_s26S (<{GHC.Tuple.(,)}> ipv2_s24u ipv3_s24C -> let !ds2_s26R = newMutVar# Data.IntMap.Base.Nil ipv2_s24u in select ds2_s26R (<{GHC.Tuple.(,)}> ipv4_s24H ipv5_s24z -> let a_s24A = GHC.STRef.STRef ipv5_s24z, a1_s24D = GHC.STRef.STRef ipv3_s24C, a2_s24G = GHC.STRef.STRef ipv1_s24F in <{GHC.Tuple.(,)}> ipv4_s24H (<{GHC.Tuple.(,)}> (FRP.Fursuit.Signal.P a2_s24G a_s24A a1_s24D) (FRP.Fursuit.Signal.Pipe a2_s24G a_s24A a1_s24D)))))
FRP.Fursuit.Pipe.emptyPipe eta_B1_B1 = FRP.Fursuit.Pipe.emptyPipe1 eta_B1_B1
FRP.Fursuit.Pipe.pipe1 initially_s24P eta_s24R = let !initially1_s258 = initially_s24P, !ds1_s272 = FRP.Fursuit.Pipe.emptyPipe1 eta_s24R in select ds1_s272 (<{GHC.Tuple.(,)}> ipv_s25a ipv1_s24V -> select ipv1_s24V (<{GHC.Tuple.(,)}> ds_s24Z ds2_s271 -> select ds_s24Z (FRP.Fursuit.Signal.P ref_s254 ds3_s26Y ds4_s26Z -> select ref_s254 (GHC.STRef.STRef var#_s257 -> let !s2#_s25c = writeMutVar# var#_s257 (Data.Maybe.Just initially1_s258) ipv_s25a in <{GHC.Tuple.(,)}> s2#_s25c ipv1_s24V))))
FRP.Fursuit.Pipe.pipe eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Pipe.pipe1 eta_B2_B2 eta_B1_B1
FRP.Fursuit.Pipe.write2 s_s25f = <{GHC.Tuple.(,)}> s_s25f <{GHC.Tuple.()}>
FRP.Fursuit.Pipe.write3 arg_s25j ds_s25l eta_s25v = let !nt_s25r = arg_s25j in select ds_s25l (Data.IntMap.Base.Bin rb_s27p rb1_s27q l_s25s r_s25u -> FRP.Fursuit.Pipe.write3 (FRP.Fursuit.Pipe.write3$1 l_s25s nt_s25r) r_s25u eta_s25v) (Data.IntMap.Base.Tip rb_s27u x_s25C -> let !ds1_s27t = nt_s25r eta_s25v in select ds1_s27t (<{GHC.Tuple.(,)}> ipv_s25B ipv1_s27s -> x_s25C ipv_s25B)) (Data.IntMap.Base.Nil  -> nt_s25r eta_s25v)
FRP.Fursuit.Pipe.write3$1 l_s25s nt_s25r eta_B1_B1 = FRP.Fursuit.Pipe.write3 nt_s25r l_s25s eta_B1_B1
FRP.Fursuit.Pipe.$wa ww_s25N ww1_s25S ww2_s25K w_s25I w1_s25L = let !x_s25O = w_s25I, !s2#_s25Q = writeMutVar# ww2_s25K true w1_s25L, !s2#1_s25T = writeMutVar# ww_s25N (Data.Maybe.Just x_s25O) s2#_s25Q, !ds1_s27N = readMutVar# ww1_s25S s2#1_s25T in select ds1_s27N (<{GHC.Tuple.(,)}> ipv_s260 ipv1_s25X -> select ipv1_s25X (_ -> let !ds2_s27M = FRP.Fursuit.Pipe.write3 FRP.Fursuit.Pipe.write2 ipv1_s25X ipv_s260 in select ds2_s27M (<{GHC.Tuple.(,)}> ipv2_s264 ipv3_s27L -> let !s2#2_s266 = writeMutVar# ww2_s25K false ipv2_s264 in <{GHC.Tuple.(,)}> s2#2_s266 <{GHC.Tuple.()}>)) (Data.IntMap.Base.Bin rb_s27I rb1_s26b l_s26d r_s26f -> let !wild1_s27O = <{<#}> rb1_s26b 0 in if wild1_s27O (let !ds2_s27Q = FRP.Fursuit.Pipe.write3 (FRP.Fursuit.Pipe.$wa$3 r_s26f) l_s26d ipv_s260 in select ds2_s27Q (<{GHC.Tuple.(,)}> ipv2_s26q ipv3_s27K -> let !s2#2_s26s = writeMutVar# ww2_s25K false ipv2_s26q in <{GHC.Tuple.(,)}> s2#2_s26s <{GHC.Tuple.()}>)) (let !ds2_s27P = FRP.Fursuit.Pipe.write3 (FRP.Fursuit.Pipe.$wa$2 l_s26d) r_s26f ipv_s260 in select ds2_s27P (<{GHC.Tuple.(,)}> ipv2_s26j ipv3_s27H -> let !s2#2_s26l = writeMutVar# ww2_s25K false ipv2_s26j in <{GHC.Tuple.(,)}> s2#2_s26l <{GHC.Tuple.()}>))))
FRP.Fursuit.Pipe.$wa$2 l_s26d eta_B1_B1 = FRP.Fursuit.Pipe.write3 FRP.Fursuit.Pipe.write2 l_s26d eta_B1_B1
FRP.Fursuit.Pipe.$wa$3 r_s26f eta_B1_B1 = FRP.Fursuit.Pipe.write3 FRP.Fursuit.Pipe.write2 r_s26f eta_B1_B1
FRP.Fursuit.Pipe.write1 w_s26w w1_s26N w2_s26O = select w_s26w (FRP.Fursuit.Signal.P ww_s26B ww1_s26E ww2_s26H -> select ww_s26B (GHC.STRef.STRef ww4_s26K -> select ww1_s26E (GHC.STRef.STRef ww6_s26L -> select ww2_s26H (GHC.STRef.STRef ww8_s26M -> FRP.Fursuit.Pipe.$wa ww4_s26K ww6_s26L ww8_s26M w1_s26N w2_s26O))))
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