let radix l =
  let r = ref 0 in
  let running = ref true in
  while !running do
    running := false;
    List.fold_left
  done