swi prolog，匹配数据

Question

这是我的源代码，有人可以告诉我什么是错误，而wat是最好的方法，我想展示谁匹配谁...有人可以帮助我吗？

   % Author:
   % Date: 08-Sep-11
   person(may,female,25,blue).
   person(john,male,30,blue).
   match:-person(Fn,'female',Fage,Fatt),
          person(Mn,'male',Mage,Matt),
          Fage<=Mage,
          Fatt=Matt,
           write(Fn ,'-- match with----',Mn).


   error message :55 ?- match.
                        ERROR: Undefined procedure: match/0
                        ERROR:     However, there are definitions for:
                        ERROR:         catch/3
                        false.

Answer 1

match :-
    person(Fn,female,Fage,Fatt),
    person(Mn,male,Mage,Matt),
    Fage =< Mage,
    Fatt = Matt,
    format('~w~s~w~n',[Fn ,'-- match with----',Mn]).