 
 : git-branch-destination ( -- dest )
     build-images-destination get
-    "slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/"
+    "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/"
     or
     factor-git-branch "/" 3append ;
 

: create-remote-upload-directory ( -- )
    '[
        "ssh" ,
        "slava_pestov@downloads.factorcode.org" ,
        "mkdir -p downloads.factorcode.org/images/" factor-git-branch append ,
    ] { } make try-process ;



: latest-destination ( -- dest )
    upload-images-destination get
    "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/latest/"
    or ;

: build-destination ( -- dest )
    build-images-destination get
    "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/build/"
    or ;

: factor-git-branch ( -- name )
