Scans

code:

main :: IO ()
main = do
    print $ scanl (\nAcc -> \(_, n) -> nAcc + n) (0 :: Integer) (zip "halleluja" [1..])

executes, with output:

[0,1,3,6,10,15,21,28,36,45]