FRP.Fursuit.Async.async1 setup_s2kz eta_s2kr = let !ds1_s2kO = FRP.Fursuit.Pipe.emptyPipe1 eta_s2kr in select ds1_s2kO (<{GHC.Tuple.(,)}> ipv_s2kE ipv1_s2kv -> select ipv1_s2kv (<{GHC.Tuple.(,)}> p_s2kA s_s2kJ -> let !ds2_s2kP = FRP.Fursuit.Signal.sink1 GHC.Base.id (FRP.Fursuit.Signal.App setup_s2kz (FRP.Fursuit.Signal.Pure p_s2kA)) ipv_s2kE in select ds2_s2kP (<{GHC.Tuple.(,)}> ipv2_s2kI ipv3_s2kM -> <{GHC.Tuple.(,)}> ipv2_s2kI s_s2kJ))) FRP.Fursuit.Async.async eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Async.async1 eta_B2_B2 eta_B1_B1