Print bits le in OCaml

.ml

let print_bits_le b =
  assert (b >= 0 && b <= 255) ;
  let rec get_bits_le x acc i =
    if i = 8 then acc
    else
      let acc = (x mod 2) :: acc in
      get_bits_le (x lsr 1) acc (i + 1)
  in
  let bits_le = List.rev (get_bits_le b [] 0) in
  List.iter print_int bits_le ;
  print_endline ""