10 lines
380 B
Text
10 lines
380 B
Text
|
&ANCHOR = 0 ; &TRIM = 1
|
||
|
|
WORD = BREAK(' .,') . W SPAN(' .,')
|
||
|
|
STRING1 = INPUT :F(ERROR)
|
||
|
|
STRING2 = INPUT :F(ERROR)
|
||
|
|
LOOP STRING1 WORD = :F(OUTPUT)
|
||
|
|
STRING2 ' ' W ANY(' .,') :F(LOOP)
|
||
|
|
LIST = LIST W ', ' :(LOOP)
|
||
|
|
OUTPUT OUTPUT = LIST
|
||
|
|
END
|