#!/usr/bin/tclsh
array set monName {
01 "\u042f\u043d\u0432\u0430\u0440\u044f"
02 "\u0424\u0435\u0432\u0440\u0430\u043b\u044f"
03 "\u041c\u0430\u0440\u0442\u0430"
04 "\u0410\u043f\u0440\u0435\u043b\u044f"
05 "\u041c\u0430\u044f"
06 "\u0418\u044e\u043d\u044f"
07 "\u0418\u044e\u043b\u044f"
08 "\u0410\u0432\u0433\u0443\u0441\u0442\u0430"
09 "\u0421\u0435\u043d\u0442\u044f\u0431\u0440\u044f"
10 "\u041e\u043a\u0442\u044f\u0431\u0440\u044f"
11 "\u041d\u043e\u044f\u0431\u0440\u044f"
12 "\u0414\u0435\u043a\u0430\u0431\u0440\u044f"
}
proc year_header {year items} {
return "$year \u0433\u043e\u0434