(while(write-byte #0=(read-byte))#0#)