(let-values (( (inpipe outpipe) (make-textual-pipe) ))
	(let ( (proc (make-process (list 'stdin inpipe 'stdout outpipe) "ls" "-1"))  (s "") )
		(let loop ()
			(let ( (s (read-line port)) )
				(when (not (eof-object? s))
					(display s)
					(loop) ) ) ) ) )