(while(#(when%(prn(apply *(read-string(str\(%\)))))1)(read-line)))