Nested function

Arturo

<lang rebol>makeList: function [separator][

   counter: 1

   makeItem: function [item] .export:[counter][
       result: ~"|counter||separator||item|"
       counter: counter+1
       return result
   ]

   @[
       makeItem "first"
       makeItem "second"
       makeItem "third"
   ]

]

print join.with:"\n" makeList ". "</lang>

Output:

1. first
2. second
3. third