A quine in ADA

Also ADA can be used for programmers amusement, here you are a simple (simple?) quine program in ADA.

with text_io;procedure self is q:character:='"';a:string(1..132):="with text_io;procedure self is q:character:='';a:string(1..132):=;begin text_io.put_line(a(1..45)&q&a(46..65)&q&a&q&a(66..132));end;";begin text_io.put_line(a(1..45)&q&a(46..65)&q&a&q&a(66..132));end;

As you can see, also a tremendly serious programming language can be used to develop useless programs.

Have you got any other examples of quines in ADA?

Gg1