import Data.List

main :: IO ()
main = do
    input <- readFile "input.txt"
    print . count . map read $ words input

count :: [Int] -> Int
count (x:xs) = count_f x xs

count_f :: Int -> [Int] -> Int
count_f _ [] = 0
count_f nb (x:xs)
     | x > nb = 1 + count_f x xs
     | otherwise = count_f x xs