Code Select Expand(define (peek-pipe fd) (letn (pos (seek fd) size (seek fd -1)) (seek fd pos) size ))
Code Select Expand(define (read-pipe fd) (letn (buf "") (read fd buf (peek-pipe fd)) buf ))