exampleToScreen :: (StartStop t) => EvStream t Float -> EvStream t [Event] -> Reactive t Picture -> Behavior t (Screen t)
exampleToScreen clock ev bPic = do
  let extentBack = makeExtent (negate 250 + 35) (negate 250 + 5) (250 - 10) (250 - 90)
      backButton = renderButton extentBack "Back"
      backEvent = samples (mainMenu clock ev <$ ffilter (any (isClickedBy extentBack)) ev)

  return $ Screen (fmap (<> backButton) bPic) backEvent
exampleToScreen :: (StartStop t) => EvStream t Float -> EvStream t [Event] -> Reactive t Picture -> Behavior t (Screen t)
exampleToScreen clock ev bPic = do
  let extentBack = makeExtent (negate 250 + 35) (negate 250 + 5) (250 - 10) (250 - 90)
      backButton = renderButton extentBack "Back"
      backEvent = samples (mainMenu clock ev <$ ffilter (any (isClickedBy extentBack)) ev)

  return $ Screen (fmap (<> backButton) bPic) backEvent
exampleToScreen clock ev bPic = do
  let extentBack = makeExtent (negate 250 + 35) (negate 250 + 5) (250 - 10) (250 - 90)
      backButton = renderButton extentBack "Back"
      backEvent = samples (mainMenu clock ev <$ ffilter (any (isClickedBy extentBack)) ev)

  return $ Screen (fmap (<> backButton) bPic) backEvent