proc    MakeList(Separator);
char    Separator;
int     Counter;

    proc MakeItem;
    int  Ordinals;
    [IntOut(0, Counter);
    Text(0, Separator);
    Ordinals:= [0, "first", "second", "third"];
    Text(0, Ordinals(Counter));
    CrLf(0);
    ];

for Counter:= 1 to 3 do MakeItem;       \MakeList procedure

MakeList(". ")                          \main procedure