RosettaCodeData/Task/Catamorphism/Aime/catamorphism.aime

integer s;

s = 0;
list(1, 2, 3, 4, 5, 6, 7, 8, 9).ucall(add_i, 1, s);
o_(s, "\n");