(while:prn:*:read)