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;