 
 : handle-SIZE ( obj -- )
     [
+        [ 213 ] dip
         tokenized>> second file-info size>>
-        213 swap number>string server-response
+        number>string server-response
     ] [
         2drop
         550 "Could not get file size" server-response

    finish-directory ;

: transfer-outgoing-file ( path -- )
    150 "Opening BINARY mode data connection for "
    rot   
    [ file-name ] [
        " " swap  file-info size>> number>string
        "(" " bytes)." surround append
    ] bi 3append server-response ;

: transfer-incoming-file ( path -- )
    150 "Opening BINARY mode data connection for " rot append
    server-response ;

: finish-file-transfer ( -- )

: handle-TYPE ( obj -- )
    [
        tokenized>> second parse-type
        [ 200 ] dip "Switching to " " mode" surround server-response
    ] [
        2drop "TYPE is binary only" ftp-error
    ] recover ;
