sig
  type 'a quantity = float * 'a option
  type angle = [ `Deg | `Grad | `Rad ] Svg_types.Unit.quantity
  type length =
      [ `Cm | `Em | `Ex | `In | `Mm | `Pc | `Percent | `Pt | `Px ]
      Svg_types.Unit.quantity
  type time = [ `Ms | `S ] Svg_types.Unit.quantity
  type frequency = [ `Hz | `KHz ] Svg_types.Unit.quantity
end