import Data.Char

main = hadej 1 10

query :: String -> IO Bool
query ot = do
    putStrLn ot
    odp <- getLine
    if (odp == "ano") then return True else return False

hadej :: Integer -> Integer -> IO()
hadej m n = do
    putStrLn ("Mysli si cele cislo od " ++ show m
		         ++ " do " ++ show n ++ ".")
    kv m n

kv :: Integer -> Integer -> IO ()
kv m n = do
    if m == n
        then putStrLn ("Je to " ++ show m ++ ".")
        else do
            o <- query ("Je tve cislo vetsi nez " ++ show k ++ "? ")
            if o then kv (k+1) n else kv m k
  where k = (m+n) `div` 2