+ (car address))
+ (define (address-host address)
+ (cadr address))
+ (define (address-port address)
+ (caddr address))
+ (define (address->string address)
+ (with-output-to-string
+ (lambda () (write address))))
+ (define (string->address str)
+ (with-input-from-string str read))