8 lines
194 B
Text
8 lines
194 B
Text
(for L '([] ["ABC"] ["ABC", "DEF"] ["ABC", "DEF", "G", "H"])
|
|
(let H (head -1 L)
|
|
(prinl
|
|
"{"
|
|
(glue ", " H)
|
|
(and H " and ")
|
|
(last L)
|
|
"}" ) ) )
|