let xsize_of_range min max sz = let nb = Aint.sub (Aint.of_term max) (Aint.of_term min) in let nb = Aint.add nb (Aint.of_int 1) in Aint.mult nb sz