let () =
  let w, h = (160, 90) in
  let svg = Svg.new_svg_document ~width:(w) ~height:(h) () in

  let green  = "#20d820" in
  let red    = "#f82020" in
  let yellow = "#fafa20" in

  Svg.add_rect svg
    ~x:(0)
    ~y:(0)
    ~width:(w)
    ~height:(h)
    ~fill:yellow
    ();

  Svg.add_rect svg
    ~x:(0)
    ~y:(0)
    ~width:(51)
    ~height:(h)
    ~fill:green
    ();

  Svg.add_rect svg
    ~x:(110)
    ~y:(0)
    ~width:(50)
    ~height:(h)
    ~fill:red
    ();

  Svg.add_newline svg;
  Svg.finish_svg svg;
  Svg.print_svg_document svg;
;;