(while:pr:writec:readc)