import System.IO

main = print . snd . foldl step ([], 0) . map (read :: String -> Int) . lines =<< readFile "../input/01"

step ([], sum) n = ([n], sum)
step ([a], sum) n = ([a, n], sum)
step ([a, b], sum) n = ([a, b, n], sum)
step ([a, b, c], sum) n = ([b, c, n], sum + if n > a then 1 else 0)
step :: ([Int], Int) -> Int -> ([Int], Int)