REBOL[]while[a: input][print do replace/all a","" *"]