(* let radix l =
  let r = ref 0 in
  let running = ref true in *)