[(Set evaluate:(stdin nextLine ifNil:[^0];replaceAll:$,with:$*))printNl]repeat!