У меня есть такой код для преобразования шестнадцатеричного кода в байтовую строку
(define (word->bin s)
(let ((n (string->number s)))
(bytes (bitwise-and (arithmetic-shift n -24) #xFF)
(bitwise-and (arithmetic-shift n -16) #xFF)
(bitwise-and (arithmetic-shift n -8) #xFF)
(bitwise-and n #xFF))))
(word->bin "#x10000002")
Я думаю об аналогичной функции для преобразования двоичного кода в целые числа, а затем его распечатки. Конечным результатом является двоичный код, переведенный в шестнадцатеричный формат. Некоторые полезные ссылки: http://download.plt-scheme.org/doc/372/html/mzscheme/mzscheme-ZH-11.html#node_sec_11.2.1