main :: IO ()
main = do
  turnOffInputBuffering
  (addKeyEvent, fireKey) <- newAddHandler
  network <- compile $ makeNetworkDescription addKeyEvent
  actuate network
  forever (getChar >>= fireKey)
main :: IO ()
main = do
  turnOffInputBuffering
  (addKeyEvent, fireKey) <- newAddHandler
  network <- compile $ makeNetworkDescription addKeyEvent
  actuate network
  forever (getChar >>= fireKey)
main = do
  turnOffInputBuffering
  (addKeyEvent, fireKey) <- newAddHandler
  network <- compile $ makeNetworkDescription addKeyEvent
  actuate network
  forever (getChar >>= fireKey)