buildGlobalIncrements :: [SymbolTable] -> [Int]
buildGlobalIncrements tables =
  let numbers = map numGlobalsExported tables
      takeAmounts = [0..((length numbers)-1)]
      sums = map ($numbers) (map take takeAmounts)
  in map sum sums
buildGlobalIncrements :: [SymbolTable] -> [Int]
buildGlobalIncrements tables =
  let numbers = map numGlobalsExported tables
      takeAmounts = [0..((length numbers)-1)]
      sums = map ($numbers) (map take takeAmounts)
  in map sum sums
buildGlobalIncrements tables =
  let numbers = map numGlobalsExported tables
      takeAmounts = [0..((length numbers)-1)]
      sums = map ($numbers) (map take takeAmounts)
  in map sum sums