Welcome to the CHICKEN Scheme pasting service
integer to short as a big-endian string added by hardmath123 on Sun Jun 19 20:32:00 2016
(define (integer->word x)
(list->string
(map integer->char
(modulo (quotient x (expt 2 8)) 256)
(modulo (quotient x (expt 2 0)) 256))))