(while(let['(#/((d )*)(.*)/(read-line))](dolist,(string-split'1'2)(print'3))))