main :: IO ()
main = runGlossHoldIO (InWindow "Examples" (500, 500) (10, 10)) white 60 $ \tick ev -> sampleB $ do
          bTime <- foldEs (+) 0 tick
          let clock = changes bTime
          (Screen bm buttonPress) <- mainMenu clock ev
          rec
            let stream = switch $ sampleR active
            active <- holdEs buttonPress (fmap bChange stream)

          switcher bm $ fmap bPic stream
main :: IO ()
main = runGlossHoldIO (InWindow "Examples" (500, 500) (10, 10)) white 60 $ \tick ev -> sampleB $ do
          bTime <- foldEs (+) 0 tick
          let clock = changes bTime
          (Screen bm buttonPress) <- mainMenu clock ev
          rec
            let stream = switch $ sampleR active
            active <- holdEs buttonPress (fmap bChange stream)

          switcher bm $ fmap bPic stream
main = runGlossHoldIO (InWindow "Examples" (500, 500) (10, 10)) white 60 $ \tick ev -> sampleB $ do
          bTime <- foldEs (+) 0 tick
          let clock = changes bTime
          (Screen bm buttonPress) <- mainMenu clock ev
          rec
            let stream = switch $ sampleR active
            active <- holdEs buttonPress (fmap bChange stream)

          switcher bm $ fmap bPic stream