/* 
   программа переводит УДК-описания в html-формате в строковый формат, 
   удаляя теги и вспомогательную информацию. 
*/

main(X) :-
    prefix := X, 
    F = readHTML("UDC-"+X+".htm"),
    file := newFileWriter("lns"+X+".txt"),
    Enum = eXElem(F, "//p"),
    step(Enum),
    close(^file)
    ;
    
step(Enum) :- exhausted(Enum), !, [];
step(Enum) :- 
    Str = sNorm(getXText(eValue(Enum))), 
    write(^file, Str),
    write(^file, nl()),
    fail;
step(Enum) :- write("."), step(eNext(Enum));