: possible-sums ( seq -- seq ) H{ } clone [ dupd '[ _ [ + _ conjoin ] with each ] each ] [ keys ] bi ;