;;- x
let width =
  (((w -. innerLeft) -. imageWidth) -. imageRightGap) -. rowInnerRight
let width = (((w - innerLeft) - imageWidth) - imageRightGap) - rowInnerRight
let width =
  ((w; -. innerLeft; -. imageWidth; -. imageRightGap; -. rowInnerRight)
  [@res.braces ])
let width = ((w; - innerLeft; - imageWidth; - imageRightGap; - rowInnerRight)
  [@res.braces ])