main :: IO () main = interact $ show . solve . map read . words solve :: [Int] -> Int solve [x, y, z] | x <= z && y <= z = z - 2 | x <= z = z - 1 | otherwise = z