:import std/Math .
:import std/String .

main [answer]
	numbers string→number <$> (lines 0)
	parts split-list-by =?‣ numbers
	sums sum <$> parts
	answer build (sort-desc sums)
		build [^0 : ∑(take (+3) 0)]