9 lines
238 B
Text
9 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');
|