%-----------------------------------------------------------------------------%

:- module uo_regression1.
:- interface.

:- import_module io.

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

%-----------------------------------------------------------------------------%
%-----------------------------------------------------------------------------%

:- implementation.

:- import_module maybe.

%-----------------------------------------------------------------------------%

:- type status
    --->    status_ok
    ;       status_error.

    % Must have more fields than --from-ground-term-threshold.
:- type response
    --->    response(
                response_status :: status,
                response_error_message :: maybe(string),
                response_sol_set :: maybe(string),
                response_tbox_answer :: maybe(string),
                response_custom_response :: maybe(string)
            ).

:- func init_message = (response::uo) is det.

init_message = response(status_ok, no, no, no, no).

main(!IO) :-
    io.write(init_message, !IO),
    io.nl(!IO).

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