         swap tokenize >>tokenized ;
 
 TUPLE: ftp-get path ;
-: <ftp-get> ( path -- obj )
-    ftp-get new
-        swap >>path ;
+C: <ftp-get> ftp-get
 
 TUPLE: ftp-put path ;
-: <ftp-put> ( path -- obj )
-    ftp-put new
-        swap >>path ;
+C: <ftp-put> ftp-put
 
 TUPLE: ftp-list ;
 C: <ftp-list> ftp-list

    } 1&& ;

: ftp-error ( string -- ) 500 server-response ;
: ftp-unimplemented ( string -- ) 502 server-response ;

: send-banner ( -- )


! sudo tcpdump -i en1 -A -s 10000  tcp port 21
! [2010-09-04T22:07:58-05:00] DEBUG server-response: 500:Unrecognized command: EPRT |2|0:0:0:0:0:0:0:1|59359|
