%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Unofficial words - Male Names
% Include File
% by Robert Warnke https://jan-lope.github.io
% released under the GNU General Public License
%
% These scripts are based on the offical Toki Pona book (first English edition 2014) of Sonja Lang (http://tokipona.org ), 
% the lessons (2015) of jan Pije ( http://tokipona.net/tp/janpije/ ) and
% the lessons of jan Lope ( https://jan-lope.github.io ).
%
% http://tokipona.net/tp/Transliterate.aspx
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

male_name_catalog(known_male_name(Male_name__catalog),Male_name__catalog) --> [Male_name__catalog], { member(Male_name__catalog, [
     'Ken',         % Ken
     'Lopa',        % Robert
     'Lope',        % Robert
     'Mawen',       % Marwin
     'Nesan',       % Nathan
     'Nikita',      % Nikita
     'Pawe',        % Paul
     'Pentan',      % Brandon
     'Pepe',        % Pepe
     'Ta',          % Todd
     'San'          % John
 ])
}.

/*
?- male_name_catalog(X,_,_).
*/

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% eof
