(define (integer->word x)                        
  (list->string                                  
    (map integer->char                           
         (modulo (quotient x (expt 2  8)) 256)   
         (modulo (quotient x (expt 2  0)) 256))))