(princ(apply'*(loop collect(read)while(read-char()/))))