RosettaCodeData/Task/Calendar/Mathematica/calendar-3.math

   yearlyCalendar[y_] := Grid[Partition[Table[monthlyCalendar[y, k], {k, 12}], 3], Spacings -> {4, 2}];