set y [lindex $yearlist $i]
set title "\u0424\u043e\u0442\u043e\u0430\u0440\u0445\u0438\u0432 $y \u0433\u043e\u0434"
set yearindex "<HTML><HEAD><TITLE>$title</TITLE><HEAD>"
set y [lindex $yearlist $i]
set title "\u0424\u043e\u0442\u043e\u0430\u0440\u0445\u0438\u0432 $y \u0433\u043e\u0434"
set yearindex "<HTML><HEAD><TITLE>$title</TITLE><HEAD>"