REBOL [
    Title:   "Transfer REBOL Files to Server"
    Date:    18-Dec-1997
    File:    %ftpallto.r
    Purpose: "FTP all .r files in the current directory to a server."
    Category: [ftp net file 1] 
]

ftp-to: ftp://user:pass@domain.com/examples

foreach file load %./ [
    if find/any file "*.r" [
        print ["uploading:" file]
        write ftp-to/:file read file
    ]
]