netWorthsAfterYears :: StartingAmount -> GrowthRate -> CashFlow -> Int -> [Double]
netWorthsAfterYears (StartingAmount sa) (GrowthRate gr) (CashFlow cf) y =
    List.scanl (\a i -> a * gr + cf) sa [1..y]
netWorthsAfterYears :: StartingAmount -> GrowthRate -> CashFlow -> Int -> [Double]
netWorthsAfterYears (StartingAmount sa) (GrowthRate gr) (CashFlow cf) y =
    List.scanl (\a i -> a * gr + cf) sa [1..y]
netWorthsAfterYears (StartingAmount sa) (GrowthRate gr) (CashFlow cf) y =
    List.scanl (\a i -> a * gr + cf) sa [1..y]