 
 : 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

    [ >>raw ] [ tokenize-command >>tokenized ] bi ;

: (send-response) ( n string separator -- )
    rot number>string write write ftp-send ;

: send-response ( ftp-response -- )
    [ n>> ] [ strings>> ] bi

assocs classes io.servers.connection destructors calendar
io.timeouts io.streams.duplex threads continuations math
concurrency.promises byte-arrays io.backend tools.hexdump
tools.files io.streams.string math.bitwise ;
IN: ftp.server

TUPLE: ftp-client url mode state command-promise user password ;
