:: Control.Monad.Primitive.PrimMonad = <{Control.Monad.Primitive.D:PrimMonad}> a1 a2 a3
Control.Monad.Primitive.$p1PrimMonad tpl_s1t1_s1t1 = select tpl_s1t1_s1t1 (<{Control.Monad.Primitive.D:PrimMonad}> tpl_s1t6_s1t6 tpl_s1uE_s1uE tpl_s1uF_s1uF -> tpl_s1t6_s1t6)
Control.Monad.Primitive.primitive tpl_s1t8_s1t8 = select tpl_s1t8_s1t8 (<{Control.Monad.Primitive.D:PrimMonad}> tpl_s1uL_s1uL tpl_s1td_s1td tpl_s1uM_s1uM -> tpl_s1td_s1td)
Control.Monad.Primitive.internal tpl_s1tf_s1tf = select tpl_s1tf_s1tf (<{Control.Monad.Primitive.D:PrimMonad}> tpl_s1uS_s1uS tpl_s1uT_s1uT tpl_s1tk_s1tk -> tpl_s1tk_s1tk)
Control.Monad.Primitive.unsafePrimToPrim $dPrimMonad1_s1tp $dPrimMonad2_s1to eta_s1tq = Control.Monad.Primitive.primitive $dPrimMonad2_s1to (Control.Monad.Primitive.internal $dPrimMonad1_s1tp eta_s1tq)
Control.Monad.Primitive.primToPrim $dPrimMonad1_s1tz $dPrimMonad2_s1tw cobox_s1tx eta_s1tA = Control.Monad.Primitive.primitive $dPrimMonad2_s1tw (Control.Monad.Primitive.primToPrim$1 $dPrimMonad1_s1tz cobox_s1tx eta_s1tA)
Control.Monad.Primitive.primToPrim$1 $dPrimMonad1_s1tz cobox_s1tx eta_s1tA = select cobox_s1tx (GHC.Types.Eq# cobox2_d1ph -> Control.Monad.Primitive.internal $dPrimMonad1_s1tz eta_s1tA)
Control.Monad.Primitive.primitive_ $dPrimMonad1_s1tE eta_s1tH = Control.Monad.Primitive.primitive $dPrimMonad1_s1tE (Control.Monad.Primitive.primitive_$2 eta_s1tH)
Control.Monad.Primitive.primitive_$2 eta_s1tH s#_s1tG = let !sat_s1v8_s1v8 = eta_s1tH s#_s1tG in <{GHC.Tuple.(,)}> sat_s1v8_s1v8 <{GHC.Tuple.()}>
Control.Monad.Primitive.a eta_s1tL = eta_s1tL
Control.Monad.Primitive.$fPrimMonadIO_$cinternal eta_B1_B1 = Control.Monad.Primitive.a eta_B1_B1
Control.Monad.Primitive.a1 tpl_s1tN = tpl_s1tN
Control.Monad.Primitive.$fPrimMonadIO_$cprimitive eta_B1_B1 = Control.Monad.Primitive.a1 eta_B1_B1
Control.Monad.Primitive.$fPrimMonadIO =: <{Control.Monad.Primitive.D:PrimMonad}> GHC.Base.$fMonadIO Control.Monad.Primitive.a1 Control.Monad.Primitive.$fPrimMonadIO_$cinternal
Control.Monad.Primitive.primToIO $dPrimMonad1_s1tT cobox_s1tR eta_s1tU = select cobox_s1tR (GHC.Types.Eq# cobox2_d1ph -> Control.Monad.Primitive.internal $dPrimMonad1_s1tT eta_s1tU)
Control.Monad.Primitive.a2 $dPrimMonad1_s1tX eta_s1tY = Control.Monad.Primitive.internal $dPrimMonad1_s1tX eta_s1tY
Control.Monad.Primitive.unsafePrimToIO eta_B2_B2 eta_B1_B1 = Control.Monad.Primitive.a2 eta_B2_B2 eta_B1_B1
Control.Monad.Primitive.unsafeInlineIO eta_s1u0 = let !ds_s1vh = eta_s1u0 GHC.Prim.realWorld# in select ds_s1vh (<{GHC.Tuple.(,)}> ipv_s1vg ipv1_s1u4 -> ipv1_s1u4)
Control.Monad.Primitive.unsafeInlinePrim $dPrimMonad1_s1u7 eta_s1u8 = let !ds_s1vj = Control.Monad.Primitive.internal $dPrimMonad1_s1u7 eta_s1u8 GHC.Prim.realWorld# in select ds_s1vj (<{GHC.Tuple.(,)}> ipv_s1vi ipv1_s1uc -> ipv1_s1uc)
Control.Monad.Primitive.touch $dPrimMonad1_s1uf eta_s1uh = Control.Monad.Primitive.primitive $dPrimMonad1_s1uf (Control.Monad.Primitive.touch$3 eta_s1uh)
Control.Monad.Primitive.touch$3 eta_s1uh s_s1ui = let !<{s'_s1uk}> = touch# eta_s1uh s_s1ui in <{GHC.Tuple.(,)}> <{s'_s1uk}> <{GHC.Tuple.()}>
Control.Monad.Primitive.a3 $dMonad_s1up eta_s1uo = eta_s1uo
Control.Monad.Primitive.$fPrimMonadST_$cinternal eta_B2_B2 eta_B1_B1 = Control.Monad.Primitive.a3 eta_B2_B2 eta_B1_B1
Control.Monad.Primitive.a4 $dMonad_s1ut tpl_s1us = tpl_s1us
Control.Monad.Primitive.$fPrimMonadST_$cprimitive eta_B2_B2 eta_B1_B1 = Control.Monad.Primitive.a4 eta_B2_B2 eta_B1_B1
Control.Monad.Primitive.lvl tpl_s1uv = tpl_s1uv
Control.Monad.Primitive.$fPrimMonadST $dMonad_s1ux = <{Control.Monad.Primitive.D:PrimMonad}> $dMonad_s1ux Control.Monad.Primitive.lvl (Control.Monad.Primitive.$fPrimMonadST$4 $dMonad_s1ux)
Control.Monad.Primitive.$fPrimMonadST$4 $dMonad_s1ux eta_B1_B1 = Control.Monad.Primitive.$fPrimMonadST_$cinternal $dMonad_s1ux eta_B1_B1
Control.Monad.Primitive.a5 eta_B2_B2 eta_B1_B1 = Control.Monad.Primitive.a2 eta_B2_B2 eta_B1_B1
Control.Monad.Primitive.primToST eta_B2_B2 eta_B1_B1 = Control.Monad.Primitive.a5 eta_B2_B2 eta_B1_B1
Control.Monad.Primitive.a6 $dPrimMonad1_s1uB eta_s1uC = Control.Monad.Primitive.internal $dPrimMonad1_s1uB eta_s1uC
Control.Monad.Primitive.unsafePrimToST eta_B2_B2 eta_B1_B1 = Control.Monad.Primitive.a6 eta_B2_B2 eta_B1_B1
Control.Monad.Primitive.$dPrimMonad =: Control.Monad.Primitive.$fPrimMonadST GHC.ST.$fMonadST
Control.Monad.Primitive.unsafeInlineST eta_B1_B1 = Control.Monad.Primitive.unsafeInlinePrim Control.Monad.Primitive.$dPrimMonad eta_B1_B1