void $ forkIO $ subscribe bell \b -> do
    putStrLn "Noflash task started"
    forever $ do
      when b $ runCheat noFlash env
      threadDelay 100

  void $ forkIO $ subscribe bell \b -> do
    putStrLn "wallhack task started"
    forever $ when b $ runCheat wallHack env
  
  void $ forever $ do
    flag <- readLn @Int
    signal bell $ flag == 1

import           Language.Haskell.TH
import           Language.Haskell.TH.Syntax

mkRes :: Q [Dec]
mkRes =
    forM ["a", "b", "c"] $ \name ->
        return $ FunD
            (mkName name)
            [Clause [] (NormalB $ LitE $ StringL name) []]

subscribe foo \(enable, config) -> when enable $ forever $ runSmth config

> runQ [d| x :: String; x = 42 |]
[ SigD x_0 ( ConT GHC.Base.String )
, ValD ( VarP x_0 )
    ( NormalB
        ( LitE
            ( IntegerL 42 )
        )
    ) []
]