例題２
gpx_top3_in([X,Y,Z],C) :- gpx(C, [X,Y,Z|_]).
(c) 2008.7.3 by tokuhisa