$/=words;say map({sum $_ Z*1,5},(0..$0 X 0..$1)).sort.unique.grep(?*).join("\n")