(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) ) ) ) ) )

;; Move command line to a single list up front, options as alist after
;; Sensible defaults: Creates stdin/stdout/stderr pipes, stores them in process object
;; Should error on non-zero exit unless keep-errors option is set
(let ( (proc (make-process '("ls" "-1")  '() )) )
	(let loop ()
		(let ( (s (read-line (process-stdout proc))) )
			(when (not (eof-object? s))
				(display s) (newline)
				(loop) ) ) ) )