module Part1 where

import Commons


getNextValues :: [History] -> [Int]
getNextValues = map $ getNextValue . reverse