9 lines
380 B
Text
9 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
|