let get_pos_of_precise i = let j = i/3 in let c = i-3*j in let (x,y,z) = pos.(j) in match c with | 0 -> x | 1 -> y | 2 -> z | _ -> failwith "get_pos_of_precise"