{def makeList

 {def makeItem
  {lambda {:s :a :i}
   {div}{A.first {A.set! 0 {+ {A.first :a} 1} :a}}:s :i}}

 {lambda {:s}
  {S.map {{lambda {:s :a :i} {makeItem :s :a :i}}
                   :s {A.new 0}}
         first second third
}}}
-> makeList

{makeList .}
->
1. first
2. second
3. third