%---------------------------------------------------------------------------%
% vim: ts=4 sw=4 et ft=mercury
%---------------------------------------------------------------------------%
%
% Compile with '--infer-all'

:- module mpj6.
:- interface.

:- typeclass coll(E, C) <= (C -> E) where [
    func i(E, C) = C
].

:- type intlist
    --->    []
    ;       [int | intlist].
:- type stringlist
    --->    []
    ;       [string | stringlist].

:- func g(intlist) = intlist.

:- implementation.

:- instance coll(int, intlist) where [ (i(N, L) = [N | L]) ].
:- instance coll(string, stringlist) where [ (i(S, L) = [S | L]) ].

g(L) = h(f, 1, 2, L).

:- func h(func(A, A, C) = C, A, A, C) = C <= coll(A, C).

h(F, A1, A2, L) = F(A1, A2, L).

f(A, B, C) = i(A, i(B, C)).