RosettaCodeData/Task/Apply-a-callback-to-an-array/TXR/apply-a-callback-to-an-array.txr

$ txr -e '[mapdo prinl #(1 2 3 4 5 6 7 8 9 10)]'
1
2
3
4
5
6
7
8
9
10