(
  :separator
  1 :counter
  (
    :item
    item separator counter string ' append append "" join
    counter succ @counter
  ) :make-item
  ("first" "second" "third") 'make-item map "\n" join
) :make-list

". " make-list print