/ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v  -->  standard output
revision 1.1
(use-modules (ice-9 textual-ports)
             (ice-9 popen))

(define (rcs-revisiones nombre)
  (let ((puerto (open-pipe* OPEN_READ "rlog" "proyectos/rcs-gopher/pruebas_rcs/RCS/hola.lisp,v"))
        (l??nea ""))
    (while ((lambda ()
              (set! l??nea (get-line puerto))
              (not (eof-object? l??nea))))
      (if (string-prefix? "revision" l??nea)
        (simple-format #t "~A~A\t~A/~A\tsdf.org\t70\n"
                       "0" (string-capitalize l??nea)
                       "/users/ronald/cgi-bin/rcs-gopher?revs"
                       (list-ref (string-split (list-ref (string-split l??nea #\Tab) 0) #\Space) 1))))))

(rcs-revisiones "hola")