Ввод списка с клавиатуры

rule(1,"болезнь","грипп ",[1,5,10]).

% Copyright
 
implement main
 
open core, console, string, list
 
class facts - db
    rule: (integer, string, string, integer*).
 
class predicates
 
    add_rule: ().
    spisok: (integer*,integer, integer* [out] ).
 
clauses
    spisok ([],E,[E]).
    spisok ([L1|H1],E,[L1|H2]):-spisok(H1,E,H2).
 
 add_rule():-
        write ("Вы хотите создать правило для болезни ?"),
        A = readLine(),
        if A="y" then
            writef("Введите номер правила"),
            Q=read (),
            clearInput(),
            writef("Введите болезнь"),
            W = readLine(),
 
            writef("Введите список"),
            S=read (),
            clearInput(),
            spisok ([],S,List),nl,
 
                foreach  (S=read()) <> 0 do
                    writef("Введите список"),
                    S=read (),
                    clearInput(),
                    spisok (List,S,List1),nl
                end foreach,
 
            assert(rule(Q,"болезнь",W,List)),
            file::save ("disease.txt",db),
            writef ("Добавлено")
        else
            writef("-------" )
        end if.
 
    run():-
        file::consult("disease.txt", db),
 
        add_rule(),
       _ = readLine().
 
end implement main
 
goal
   mainExe::run(main::run).