Exam Type Question involving Structure and List

% Author: Claudia-Ann Gray 0702011
% Date: 11/16/2010

liquor(id(101),food(vegetable),name_(moet),flavour(dry)).
liquor(id(201),food(meat),name_(moulin),flavour(intense)).
liquor(id(301),food(rice),name_(blaye),flavour(dry)).
liquor(id(401),food(seafood),name_(yellow_tail),flavour(intense)).

type(white,[101,301]).
type(red,[201,401]).

mymember(X,[X|_]).
mymember(X,[Z|T]):-mymember(X,T).

/*Write a predicate listwines/0 that prints the following in tabular format
        name        food        type*/
       
listwines:-write('Name'),tab(8),write('Food'),tab(8),write('Type'),
          nl,show.
         
show:-liquor(id(ID),food(Food),name_(Name),_),type(Type,List),mymember(ID,List),
      write(Name),tab(8),write(Food),tab(8),write(Type),nl,fail.