RosettaCodeData/Task/Call-a-function/Seed7/call-a-function-6.seed7

seq := doMap([](1, 2, 4, 6, 10, 12, 16), x, succ(x));