growing xs = 
  zip b [sum (take n c) | n <- [1..length c]]
  where
    (b,c) = unzip xs
growing xs = 
  zip b [sum (take n c) | n <- [1..length c]]
  where
    (b,c) = unzip xs
growing xs = 
  zip b [sum (take n c) | n <- [1..length c]]
  where
    (b,c) = unzip xs