with Ada.Text_IO;
procedure Quine is
   use Ada.Text_IO;
   Q : constant Character := Character'Val (34);
   Data : constant String :=
      "with Ada.Text_IO;~procedure Quine is~   use Ada.Text_IO;~   Q : constant Character := Character'Val (34);~   Data : constant String :=~      \   procedure Nl (S : String) is~   begin~      for I in S'Range loop~         if S (I) = '~' then~            New_Line;~         else~            Put (S (I));~         end if;~      end loop;~   end Nl;~   procedure Qs (S : String) is~   begin~      Put (Q);~      for I in S'Range loop~         if S (I) = Q then~            Put (Q); Put (Q);~         else~            Put (S (I));~         end if;~      end loop;~      Put (Q);~   end Qs;~   Split : Integer := 0;~begin~   for I in Data'Range loop~      if Data (I) = '\' then~         Split := I;~         exit;~      end if;~   end loop;~   Nl (Data (Data'First .. Split - 1));~   Qs (Data);~   Put (';');~   New_Line;~   Nl (Data (Split + 1 .. Data'Last));~end Quine;~";
   procedure Nl (S : String) is
   begin
      for I in S'Range loop
         if S (I) = '~' then
            New_Line;
         else
            Put (S (I));
         end if;
      end loop;
   end Nl;
   procedure Qs (S : String) is
   begin
      Put (Q);
      for I in S'Range loop
         if S (I) = Q then
            Put (Q); Put (Q);
         else
            Put (S (I));
         end if;
      end loop;
      Put (Q);
   end Qs;
   Split : Integer := 0;
begin
   for I in Data'Range loop
      if Data (I) = '\' then
         Split := I;
         exit;
      end if;
   end loop;
   Nl (Data (Data'First .. Split - 1));
   Qs (Data);
   Put (';');
   New_Line;
   Nl (Data (Split + 1 .. Data'Last));
end Quine;

d2l0aCBBZGEuVGV4dF9JTzsKcHJvY2VkdXJlIFF1aW5lIGlzCiAgIHVzZSBBZGEuVGV4dF9JTzsKICAgUSA6IGNvbnN0YW50IENoYXJhY3RlciA6PSBDaGFyYWN0ZXInVmFsICgzNCk7CiAgIERhdGEgOiBjb25zdGFudCBTdHJpbmcgOj0KICAgICAgIndpdGggQWRhLlRleHRfSU87fnByb2NlZHVyZSBRdWluZSBpc34gICB1c2UgQWRhLlRleHRfSU87fiAgIFEgOiBjb25zdGFudCBDaGFyYWN0ZXIgOj0gQ2hhcmFjdGVyJ1ZhbCAoMzQpO34gICBEYXRhIDogY29uc3RhbnQgU3RyaW5nIDo9fiAgICAgIFwgICBwcm9jZWR1cmUgTmwgKFMgOiBTdHJpbmcpIGlzfiAgIGJlZ2lufiAgICAgIGZvciBJIGluIFMnUmFuZ2UgbG9vcH4gICAgICAgICBpZiBTIChJKSA9ICd+JyB0aGVufiAgICAgICAgICAgIE5ld19MaW5lO34gICAgICAgICBlbHNlfiAgICAgICAgICAgIFB1dCAoUyAoSSkpO34gICAgICAgICBlbmQgaWY7fiAgICAgIGVuZCBsb29wO34gICBlbmQgTmw7fiAgIHByb2NlZHVyZSBRcyAoUyA6IFN0cmluZykgaXN+ICAgYmVnaW5+ICAgICAgUHV0IChRKTt+ICAgICAgZm9yIEkgaW4gUydSYW5nZSBsb29wfiAgICAgICAgIGlmIFMgKEkpID0gUSB0aGVufiAgICAgICAgICAgIFB1dCAoUSk7IFB1dCAoUSk7fiAgICAgICAgIGVsc2V+ICAgICAgICAgICAgUHV0IChTIChJKSk7fiAgICAgICAgIGVuZCBpZjt+ICAgICAgZW5kIGxvb3A7fiAgICAgIFB1dCAoUSk7fiAgIGVuZCBRczt+ICAgU3BsaXQgOiBJbnRlZ2VyIDo9IDA7fmJlZ2lufiAgIGZvciBJIGluIERhdGEnUmFuZ2UgbG9vcH4gICAgICBpZiBEYXRhIChJKSA9ICdcJyB0aGVufiAgICAgICAgIFNwbGl0IDo9IEk7fiAgICAgICAgIGV4aXQ7fiAgICAgIGVuZCBpZjt+ICAgZW5kIGxvb3A7fiAgIE5sIChEYXRhIChEYXRhJ0ZpcnN0IC4uIFNwbGl0IC0gMSkpO34gICBRcyAoRGF0YSk7fiAgIFB1dCAoJzsnKTt+ICAgTmV3X0xpbmU7fiAgIE5sIChEYXRhIChTcGxpdCArIDEgLi4gRGF0YSdMYXN0KSk7fmVuZCBRdWluZTt+IjsKICAgcHJvY2VkdXJlIE5sIChTIDogU3RyaW5nKSBpcwogICBiZWdpbgogICAgICBmb3IgSSBpbiBTJ1JhbmdlIGxvb3AKICAgICAgICAgaWYgUyAoSSkgPSAnficgdGhlbgogICAgICAgICAgICBOZXdfTGluZTsKICAgICAgICAgZWxzZQogICAgICAgICAgICBQdXQgKFMgKEkpKTsKICAgICAgICAgZW5kIGlmOwogICAgICBlbmQgbG9vcDsKICAgZW5kIE5sOwogICBwcm9jZWR1cmUgUXMgKFMgOiBTdHJpbmcpIGlzCiAgIGJlZ2luCiAgICAgIFB1dCAoUSk7CiAgICAgIGZvciBJIGluIFMnUmFuZ2UgbG9vcAogICAgICAgICBpZiBTIChJKSA9IFEgdGhlbgogICAgICAgICAgICBQdXQgKFEpOyBQdXQgKFEpOwogICAgICAgICBlbHNlCiAgICAgICAgICAgIFB1dCAoUyAoSSkpOwogICAgICAgICBlbmQgaWY7CiAgICAgIGVuZCBsb29wOwogICAgICBQdXQgKFEpOwogICBlbmQgUXM7CiAgIFNwbGl0IDogSW50ZWdlciA6PSAwOwpiZWdpbgogICBmb3IgSSBpbiBEYXRhJ1JhbmdlIGxvb3AKICAgICAgaWYgRGF0YSAoSSkgPSAnXCcgdGhlbgogICAgICAgICBTcGxpdCA6PSBJOwogICAgICAgICBleGl0OwogICAgICBlbmQgaWY7CiAgIGVuZCBsb29wOwogICBObCAoRGF0YSAoRGF0YSdGaXJzdCAuLiBTcGxpdCAtIDEpKTsKICAgUXMgKERhdGEpOwogICBQdXQgKCc7Jyk7CiAgIE5ld19MaW5lOwogICBObCAoRGF0YSAoU3BsaXQgKyAxIC4uIERhdGEnTGFzdCkpOwplbmQgUXVpbmU7