procedure gnat.io.Q is x:string:="""procedure gnat.io.Q is x:string:=;begin put(x(2..34)&x(1)&x(1)&x&x(1)&x(35..86));end;";begin put(x(2..34)&x(1)&x(1)&x&x(1)&x(35..86));end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).