RosettaCodeData/Task/Metaprogramming/SNOBOL4/metaprogramming-3.sno

        &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