import Control.Monad (forever)

hadej :: Integer -> Integer -> IO ()
hadej l u
  | l >= u = putStrLn "Nepodvadej"
  | l + 1 == u = putStrLn $ "Je to " ++ show l
  | otherwise = do
    let m = (l + u) `div` 2
    putStrLn $ "Hadam: " ++ show m
    res <- getLine
    case res of
      "<" -> hadej l m
      ">" -> hadej (m+1) u
      "=" -> putStrLn "vyhra"
      _ -> putStrLn "Spatny vstup hlupaku!" >> hadej l u

-- nekonecna hra
main = forever $ hadej 0 100