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