%
% P/FDM (SICStus 3.7.1) does not have number_codes/2
% we have to use name/2 instead
%

number_codes(X,Y) :-
	name(X,Y).

