编写序言的新手。我想知道如何从已经包含的序言文件中访问谓词。我想获取每个称为work的谓词的第一个字符串。我包含的文件称为work.pl.I包括这种方式：:- [working.pl].。 working.pl文件的代码如下：
work('Firefighter',['George','Mike','Angel']).
work('Doctor',['Mary','Mikel]).
work('Fisherman',['John','Pat]).
我希望得到['Firefighter','Doctor','Fisherman'].