(while:prt:prt:readc)