(use rfc.http) ; http-post (use rfc.uri) ; uri-encode-string (use rfc.base64) ; base64-encode-string (define *twitter-status* "/statuses/update.xml?status=") (define *twitter* "twitter.com") (define make-authorization (lambda (username password) (string-append "Basic " (base64-encode-string (string-append username ":" password))))) (define make-poster (lambda (base-host post-path) (lambda (auth) (