proc makeList(separator: string): string =
  var counter = 1

  proc makeItem(item: string): string =
    result = $counter & separator & item & "\n"
    inc counter

  makeItem("first") & makeItem("second") & makeItem("third")

echo $makeList(". ")