(while:prn:/(read)2)