16 lines
318 B
Text
16 lines
318 B
Text
( :?L1
|
|
& ABC:?L2
|
|
& ABC DEF:?L3
|
|
& ABC DEF G H:?L4
|
|
& L1 L2 L3 L4:?names
|
|
& ( quibble
|
|
= w
|
|
. !arg:%?w (% %:?arg)
|
|
& !w ", " quibble$!arg
|
|
| !arg:%?w %?arg&!w " and " quibble$!arg
|
|
| !arg
|
|
)
|
|
& (concat=.str$("{" quibble$!arg "}"))
|
|
& whl
|
|
' (!names:%?name ?names&out$(!name concat$!!name))
|
|
);
|