let swap_words v =
let low = Int32.logand v 0xffffl in
let high = Int32.logand (Int32.shift_right_logical v 16) 0xffffl in
Int32.logor (Int32.shift_left low 16) high

let's kill myself !