%---------------------------------------------------------------------------%
% vim: ts=4 sw=4 et ft=mercury
%---------------------------------------------------------------------------%

:- module trace_goal_3.

:- interface.

:- import_module io.

:- pred main(io::di, io::uo) is det.

:- implementation.

:- import_module int.
:- import_module string.

main(!IO) :-
    p(42, X),
    io.write_string(X, !IO),
    io.nl(!IO).

:- pred p(int::in, string::out) is det.

p(N, !:S) :-
    trace [compiletime(flag("abc") or flag("xyz")), io(!S)] (
        io.write_string("<abc>", !S),
        io.write_int(N, !S),
        io.write_string("<abc>\n", !S)
    ),
    trace [compiletime(flag("abc") or flag("xyz")), io(!S)] (
        io.write_string("<xyz>", !S),
        io.write_int(N+1, !S),
        io.write_string("<xyz>\n", !S)
    ),
    !:S = int_to_string(N+2) ++ "xx" ++ int_to_string(N+3).