let fdx = function
  | Float16 -> 0
  | Float32 -> 1
  | Float64 -> 2
  | Float96 -> 3
  | Float128 -> 4