fun int incr(int a, int b) = a + b

fun int writeInt(int n) = write(n)

fun [int] main() =
  let a = {1, 2, 3} in
  let b = scan(incr, 0, a) in
  map(writeInt, b)