import TestSample
import Control.EventDriven
import Control.Monad.Tools

main :: IO ()
main = do

  let itk = initializeTalker ( initV myConfig ) ( kbind myConfig )

  doWhile itk $ \tk -> do

    ev  <- ( input myConfig )
    mtk <- putEvent_ ( ebind myConfig ) ( output myConfig ) tk ev
    return $ case mtk of
         Just ntk -> ( ntk, True  )
         Nothing  -> ( tk,  False )

  return ()