Пролог Опции

[Fanat]

Код

domains
list=integer*.
list2=char*.
FILE=infile.
predicates
vvod(symbol,list).
read(list).
clauses
vvod(N,L):-existfile(N),
openread(infile,N),
readdevice(infile),writedevice(screen),
read(L),closefile(infile),readdevice(stdin),!.
read(L):-readchar(X),write(X),//<---Вот тут.
          read(L1),L=[X|L1].          
read([]).

Вот код программы на прологе...если в выделенном месте заменить на readint то перестаёт читать из файла...
при vvod("файл.txt",L) хочеться получить в L список integer. Пробовал readreal,char_int тоже не работают...