راهنمایی در حل مشکل کد پرولوگ

[cpppro]

با سلام
من یه برنامه پرولوگ نوشتم که توش میخوام بهترین هواپیما رو انتخاب کنه.
درواقع در هر لیست مثلا سرعت اولین هواپیما بهترین هست و الی ...
درنهایت میخوام اولا در هر ویژگی بهترین رو انتخاب کنه و همچنین بهترین هواپیما در جمع تمام ویژگیها ( مقایسه و میانگین کل )
یه تکه کد نوشتم ولی ارور میده ؟
radar([f22,t50,sukho35,f35,f14,f18,f15,f16,f4]).
engine([f35,t50,sukho35,f22,f14,f18,f15,f16,f4]).
manover([sukho35,t50,f22,f35,f18,f15,f14,f16,f4]).
wepone([sukho35,f22,f35,t50,f18,f14,f15,f16,f4]).
speed([f14,f4,sukho35,f22,t50,f15,f35,f18,f16]).


bestradar(X,[X|Tail]).
bestengine(X,[X|Tail]).
bestmanover(X,[X|Tail]).
bestwepone(X,[X|Tail]).
bestspeed(X,[X|Tail]).



bestfighterjet(X,Y):- bestfighterjet(X,radar(X,[X|Tail])),
bestfighterjet(X,engine(X,[X|Tail]),
bestfighterjet(X,manover(X,[X|Tail])), bestfighterjet(X,wepone(X,[X|Tail])),
bestfighterjet(X,speed(X,[X|Tail])).