0. #lang racket
1.  
2. (define (cloudflare-email-decode hex-string)
3.   (define k (string->number (substring hex-string 0 2) 16))
4.   (define (loop hx-str decoded-str)
5.     (cond [(empty-string? hx-str) decoded-str]
6.           [else (define b (string->number (substring hx-str 0 2) 16))
7.                 (define d (string (integer->char (bitwise-xor k b))))
8.                 (loop (substring hx-str 2)
9.                       (string-append decoded-str d))]))
10.   (loop (substring hex-string 2) ""))
11.  
12.  
13. (cloudflare-email-decode "d8b0beb0b3bbb7b098bbbdb6acadaaa1b4b1b6b3f6b6bdac")

=>

empty-string?: undefined;

cannot reference an identifier before its definition

in module: 'm