exitOnInput = do
  hSetBuffering stdin NoBuffering
  _ <- getChar
  exitSuccess
exitOnInput = do
  hSetBuffering stdin NoBuffering
  _ <- getChar
  exitSuccess
exitOnInput = do
  hSetBuffering stdin NoBuffering
  _ <- getChar
  exitSuccess