:- use_module(library(http/html_write)).

date --> "2023".

page_head -->
    html({|html|| <title>A test page</title>|}).

page_content -->
    html({|html|| <p> A test paragraph \date</p>|}).

:- phrase(page(\page_head, \page_content), Out), print_html(Out).

%% swipl -g '[html]' -t 'halt'