%---------------------------------------------------------------------------%
% vim: ts=4 sw=4 et ft=mercury
%---------------------------------------------------------------------------%
% string_string.m
% Ralph Becket <rafe@cs.mu.oz.au>
% Tue Oct  5 13:10:27 EST 2004
%---------------------------------------------------------------------------%

:- module string_string.
:- interface.

:- import_module io.

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

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

:- implementation.

:- import_module array.
:- import_module list.
:- import_module pair.
:- import_module string.
:- import_module version_array.

:- type tree
    --->    leaf
    ;       branch(tree, tree).

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

main(!IO) :-
    array.from_list([1, 2, 3], Array),
    VersionArray = version_array.from_list([1, 2, 3]),
    io.write_string(string.string(leaf) ++ "\n", !IO),
    io.write_string(string.string(branch(leaf, leaf)) ++ "\n", !IO),
    io.write_string(string.string([1, 2, 3]) ++ "\n", !IO),
    io.write_string(string.string(1.234 - 5) ++ "\n", !IO),
    io.write_string(string.string(Array) ++ "\n", !IO),
    io.write_string(string.string(VersionArray) ++ "\n", !IO).