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

        &ANCHOR = 0 ; &TRIM = 1
        WORD = BREAK(' .,') . W SPAN(' .,')
        FINDW = ' ' *W ANY(' .,')
        STRING1 = INPUT                       :F(ERROR)
        STRING2 = INPUT                       :F(ERROR)
LOOP    STRING1 WORD =                        :F(OUTPUT)
        STRING2 FINDW                         :F(LOOP)
        LIST = LIST W ', '                    :(LOOP)
OUTPUT  OUTPUT = LIST
END