b_ext.chr

:- module(ext, []).
:- use_module(owner, [classify/1, run/2]).

% Extend the open class with a new signature and a matching equation.
:- extend_class_type (classify(string) -> string).
:- extend_class classify("a") -> "alpha".