Untitled

(define (byte-hex)
  (define input1 (read))
  (define input2 (read))
  (define input3 (read))
  (define input4 (read))

  (define word (bitwise-ior (arithmetic-shift input1 24)
                            (arithmetic-shift input2 16)
                            (arithmetic-shift input3 8)
                            (bitwise-and input4 #xffff)))


  (display "cookie ")
  (display word)
  (newline)
  )

(byte-hex)