оператор ожидается в прологе при чтении файла

Question

Я получаю сообщение об ошибке при попытке прочитать файл, как ожидал оператор.

   main:- 
         open('cr1.txt',read,Str), 
         read_houses(Str,Houses), 
         close(Str), 
         write(Houses),  nl. 

   read_houses(Stream,[]):- 
         at_end_of_stream(Stream). 

   read_houses(Stream,[X|L]):- 
         \+  at_end_of_stream(Stream), 
         read(Stream,X), 
         read_houses(Stream,L).