let bpi = Sys.word_size - 2