+set html_finish "</ul>\n<hr><font size=\"-2\">Copyright © Vitus Wagner</font>\n</body></html>\n"
+set yearlist [lsort -decreasing [array names a]]
+for {set i 0} {$i<[llength $yearlist]} {incr i} {
+ 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>"
+ append yearindex "<table border=0><tr><td align=left>"
+ append yearindex [nextyearlink [lindex $yearlist [expr $i+1]]]
+ append yearindex "</td><td align=\"right\">"
+ append yearindex [nextyearlink [lindex $yearlist [expr $i-1]]]
+ append yearindex "</td><tr></table\n><h1>$title</h1>\n<ul>"
+ set dircount [llength $a($y)]
+ set count 0