d2b <- function(n) paste(as.integer(rev(intToBits(n:n))), collapse="")