sums xs = ys
  where ys = [ x + y | x <- xs | y <- [0] # ys ]

check12 = sums ([0 .. 9] : [_][32]) == [0, 1, 3, 6, 10, 15, 21, 28, 36, 45]