10 lines
238 B
Text
10 lines
238 B
Text
|
;;; Put list elements and lenght on the stack
|
||
|
|
destlist(ls);
|
||
|
|
;;; Build a vector from them
|
||
|
|
lvars ar = consvector();
|
||
|
|
;;; Display in a loop, putting trailing period
|
||
|
|
for i from 1 to length(ar) do
|
||
|
|
printf(ar(i), '%s.');
|
||
|
|
endfor;
|
||
|
|
printf('\n');
|