(while:prn:apply *(map int(tokens(readline)[> #\-_])))