Well, the bitwise not seems to have been left out of the library, but
it's a one-liner:

let lnot x = x lxor (-1);;

- Xavier