(princ(loop for c =(read-char t())while c if(eq #\* c)count c))