with Ada.Text_IO;
procedure Quine is
   use Ada.Text_IO;
   Q : constant Character := Character'Val (34);
   T : constant Character := Character'Val (126);
   B : constant Character := Character'Val (92);
   Data : constant String :=
      "with Ada.Text_IO;~procedure Quine is~   use Ada.Text_IO;~   Q : constant Character := Character'Val (34);~   T : constant Character := Character'Val (126);~   B : constant Character := Character'Val (92);~   Data : constant String :=~      \   procedure Nl (S : String) is~   begin~      for I in S'Range loop~         if S (I) = T 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) = B 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) = T 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) = B 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;

d2l0aCBBZGEuVGV4dF9JTzsKcHJvY2VkdXJlIFF1aW5lIGlzCiAgIHVzZSBBZGEuVGV4dF9JTzsKICAgUSA6IGNvbnN0YW50IENoYXJhY3RlciA6PSBDaGFyYWN0ZXInVmFsICgzNCk7CiAgIFQgOiBjb25zdGFudCBDaGFyYWN0ZXIgOj0gQ2hhcmFjdGVyJ1ZhbCAoMTI2KTsKICAgQiA6IGNvbnN0YW50IENoYXJhY3RlciA6PSBDaGFyYWN0ZXInVmFsICg5Mik7CiAgIERhdGEgOiBjb25zdGFudCBTdHJpbmcgOj0KICAgICAgIndpdGggQWRhLlRleHRfSU87fnByb2NlZHVyZSBRdWluZSBpc34gICB1c2UgQWRhLlRleHRfSU87fiAgIFEgOiBjb25zdGFudCBDaGFyYWN0ZXIgOj0gQ2hhcmFjdGVyJ1ZhbCAoMzQpO34gICBUIDogY29uc3RhbnQgQ2hhcmFjdGVyIDo9IENoYXJhY3RlcidWYWwgKDEyNik7fiAgIEIgOiBjb25zdGFudCBDaGFyYWN0ZXIgOj0gQ2hhcmFjdGVyJ1ZhbCAoOTIpO34gICBEYXRhIDogY29uc3RhbnQgU3RyaW5nIDo9fiAgICAgIFwgICBwcm9jZWR1cmUgTmwgKFMgOiBTdHJpbmcpIGlzfiAgIGJlZ2lufiAgICAgIGZvciBJIGluIFMnUmFuZ2UgbG9vcH4gICAgICAgICBpZiBTIChJKSA9IFQgdGhlbn4gICAgICAgICAgICBOZXdfTGluZTt+ICAgICAgICAgZWxzZX4gICAgICAgICAgICBQdXQgKFMgKEkpKTt+ICAgICAgICAgZW5kIGlmO34gICAgICBlbmQgbG9vcDt+ICAgZW5kIE5sO34gICBwcm9jZWR1cmUgUXMgKFMgOiBTdHJpbmcpIGlzfiAgIGJlZ2lufiAgICAgIFB1dCAoUSk7fiAgICAgIGZvciBJIGluIFMnUmFuZ2UgbG9vcH4gICAgICAgICBpZiBTIChJKSA9IFEgdGhlbn4gICAgICAgICAgICBQdXQgKFEpOyBQdXQgKFEpO34gICAgICAgICBlbHNlfiAgICAgICAgICAgIFB1dCAoUyAoSSkpO34gICAgICAgICBlbmQgaWY7fiAgICAgIGVuZCBsb29wO34gICAgICBQdXQgKFEpO34gICBlbmQgUXM7fiAgIFNwbGl0IDogSW50ZWdlciA6PSAwO35iZWdpbn4gICBmb3IgSSBpbiBEYXRhJ1JhbmdlIGxvb3B+ICAgICAgaWYgRGF0YSAoSSkgPSBCIHRoZW5+ICAgICAgICAgU3BsaXQgOj0gSTt+ICAgICAgICAgZXhpdDt+ICAgICAgZW5kIGlmO34gICBlbmQgbG9vcDt+ICAgTmwgKERhdGEgKERhdGEnRmlyc3QgLi4gU3BsaXQgLSAxKSk7fiAgIFFzIChEYXRhKTt+ICAgUHV0ICgnOycpO34gICBOZXdfTGluZTt+ICAgTmwgKERhdGEgKFNwbGl0ICsgMSAuLiBEYXRhJ0xhc3QpKTt+ZW5kIFF1aW5lO34iOwogICBwcm9jZWR1cmUgTmwgKFMgOiBTdHJpbmcpIGlzCiAgIGJlZ2luCiAgICAgIGZvciBJIGluIFMnUmFuZ2UgbG9vcAogICAgICAgICBpZiBTIChJKSA9IFQgdGhlbgogICAgICAgICAgICBOZXdfTGluZTsKICAgICAgICAgZWxzZQogICAgICAgICAgICBQdXQgKFMgKEkpKTsKICAgICAgICAgZW5kIGlmOwogICAgICBlbmQgbG9vcDsKICAgZW5kIE5sOwogICBwcm9jZWR1cmUgUXMgKFMgOiBTdHJpbmcpIGlzCiAgIGJlZ2luCiAgICAgIFB1dCAoUSk7CiAgICAgIGZvciBJIGluIFMnUmFuZ2UgbG9vcAogICAgICAgICBpZiBTIChJKSA9IFEgdGhlbgogICAgICAgICAgICBQdXQgKFEpOyBQdXQgKFEpOwogICAgICAgICBlbHNlCiAgICAgICAgICAgIFB1dCAoUyAoSSkpOwogICAgICAgICBlbmQgaWY7CiAgICAgIGVuZCBsb29wOwogICAgICBQdXQgKFEpOwogICBlbmQgUXM7CiAgIFNwbGl0IDogSW50ZWdlciA6PSAwOwpiZWdpbgogICBmb3IgSSBpbiBEYXRhJ1JhbmdlIGxvb3AKICAgICAgaWYgRGF0YSAoSSkgPSBCIHRoZW4KICAgICAgICAgU3BsaXQgOj0gSTsKICAgICAgICAgZXhpdDsKICAgICAgZW5kIGlmOwogICBlbmQgbG9vcDsKICAgTmwgKERhdGEgKERhdGEnRmlyc3QgLi4gU3BsaXQgLSAxKSk7CiAgIFFzIChEYXRhKTsKICAgUHV0ICgnOycpOwogICBOZXdfTGluZTsKICAgTmwgKERhdGEgKFNwbGl0ICsgMSAuLiBEYXRhJ0xhc3QpKTsKZW5kIFF1aW5lOw==