let round x = let fx = floor x in let diff = x -. fx in
    if diff <= 0.5 then fx else fx +. 1.