(define (s x) (string->number x 16))
(define (t x) (number->string x 16))
(define (z a b) (t (quotient (* 1/2 (expt 16 8) (s a)) (s b))))