:- module basics.
:- interface.
:- type part ---> one; two.
:- pred part(string, part).
:- mode part(in, out) is semidet.
:- mode part(out, in) is semidet.
:- implementation.
part("1", one).
part("2", two).