Error: 707 free variable in expression

Доброе время суток.

В методичке № 550 по прологу есть пример 4.8 «нахождение максимума» :

domains
  author, name, scool, museum = symbol
  year=integer
  list = year*
predicates
  pic(author, name, scool, year, museum)
  max(year, year, list)
  new(name)
clauses
  pic(“Raphael”, “Sainted family”, “Italy”, 1506, “Hermitage”).
  pic(“Renuar”, “Lady in black”, “France”, 1876, “Hermitage”).
  pic(“Mone”, “Breakfast on the grass”, “France”, 1866, “GMII Pushkina”).
  pic(“Rembrandt”, “Flora”, “Holland”, 1634, “Hermitage”).
  pic(“Rembrandt”, “Poklonenie volhvov”, “Holland”, 1632, “Hermitage”).

/*=========‡ Їа®бл==============*/
  max(Mmax, Mmax, []):- !.
  max(Mmax, MT, [H|Tail]):- H> MT, !, max(Mmax, H, Tail). //Каретка останавливается на H>MT       
  max(Mmax, MT, L):- !, max(Mmax, MT, Tail).
  
  new(N):- findall(YY, pic(_,_,“Holland”, YY,_), L),
           max(Y, -1000, L),pic(_, N,_, Y,_).

Подскажите, пожайлуста, что не так

>>А до этой ошибки у Вас других ошибок или предупреждений не возникает?

Нет, не возникает.

В “08.12.06 09:42” поспешил с ответом  

max(Mmax, MT, L):- !, max(Mmax, MT, Tail). // На L и Tail - 420 Warning: The variable
//is only used once.

new(N):- findall(YY, pic(_,_,“Holland”, YY,_), L),
max(Y, -1000, L),pic(_, N,_, Y,_).

>>Исправьте это предупреждение и ...

что-то никак не получается исправить

Yuri, спасибо за помощь.

Просмотрел:  

http://popoff.donetsk.ua/forum/flp/PrologPredupredzhdenie.html

после чего нашел и исправил ошибку:
 
max(Mmax, MT, [H|Tail]):- H> MT, !, max(Mmax, H, Tail).  
max(Mmax, MT, [_|Tail]):- !, max(Mmax, MT, Tail).

нашЁл

http://popoff.donetsk.ua/text/work/prg/goto/min.html

Спасибо, прочитаю.