ftp-get.scm

#!/usr/bin/env gosh
(use rfc.ftp)

(define *username* "xxx")
(define *ftp-server* "ftp.xxx.xxx")
(define *client-path* "/xxx/xxx/xxx/xxx.txt")
(define *server-path* "/xxx/xxx/xxx.txt")

(define (main args)
  (print "input password:")
   (call-with-output-file *client-path*
     (lambda (out)
       (ftp-get
        (ftp-login *ftp-server* :passive #t :username *username* :password (read)) *server-path* :sink out :flusher (lambda _ #t))
       out))
  (print "Done!")
  0)