(base) root@gitlab:/opt/logicmoo_workspace/packs_sys/small_adventure_games/prolog/programk/aiml/chomskyAIML# swipl
Welcome to SWI-Prolog (threaded, 64 bits, version 8.1.15)
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.
Please run ?- license. for legal details.

For online help and background, visit http://www.swi-prolog.org
For built-in help, use ?- help(Topic). or ?- apropos(Word).

?- current_predicate(_,Pred),predicate_property(Pred,built_in).
Pred = current_predicate(_9302, _9304) ;
Pred = ignore(_9302) ;
false.

?- current_predicate(M:F/A),functor(Pred,F,A), predicate_property(M:Pred,built_in), \+ predicate_property(M:Pred,imported_from(_)).
M = system,
F =  (=\=),
A = 2,
Pred =  (_9742=\=_9744) ;
M = system,
F = float,
A = 1,
Pred = float(_9742) ;
M = system,
F = prolog_nodebug,
A = 1,
Pred = prolog_nodebug(_9742) ;
M = system,
F = '$set_source_location',
A = 2,
Pred = '$set_source_location'(_9742, _9744) ;
M = system,
F = '$hide',
A = 1,
Pred = '$hide'(_9742) ;
M = system,
F = thread_join,
A = 2,
Pred = thread_join(_9742, _9744) .

?- current_predicate(_,Pred),predicate_property(Pred,built_in).
Pred = current_predicate(_9322, _9324) ;
Pred = ignore(_9322) ;
false.

?-