with Ada.Text_IO, Bar_Codes, Bar_Codes_Media;

    procedure Small_Demo is
      use Ada.Text_IO;
      svg : File_Type;
    begin
      Create (svg, Out_File, "qr_code.svg");
      Put_Line
        (svg,
         Bar_Codes_Media.SVG_Bar_Code
           (Bar_Codes.Code_QR_Low, (5.0, 5.0, 100.0, 100.0), "mm", "Hello"));
      Close (svg);
    end;