hello :-

/*
Emits the string
←Hello from Unicode Prolog→
*/

write("<HTML>
<HEAD>
<TITLE>\u2190Hello from Unicode Prolog\u2192</TITLE>
</HEAD>
<BODY>
<H1>\u2190Hello from Unicode Prolog\u2192</H1>
</BODY>
</HTML>
").

:- hello, halt.
