use std.textio.all;entity quine is end;architecture s of quine is begin process variable x:string(1 to 195):="""use std.textio.all;entity quine is end;architecture s of quine is begin process variable x:string(1 to 195):=;begin write(output,x(2 to 110)&x(1)&x(1)&x&x(1)&x(111 to 195));wait;end process;end;";begin write(output,x(2 to 110)&x(1)&x(1)&x&x(1)&x(111 to 195));wait;end process;end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).