where windows = filter ((== 3) . length) $ map (take 3) $ tails nums
countIncreasing :: [Int] -> Int
--- countIncreasing nums = length $ filter (> 0) $ zipWith (-) (tail nums) nums
countIncreasing nums = length $ filter (uncurry (>)) $ zip (tail nums) nums