with text_Io;
use Text_Io;
with Ada.Calendar;
use Ada.Calendar;
procedure Schmilblick is
   
   
   
   type Case_Enum is (Chaos, Machine, Program, Result, Manuel);
   
   Start : Natural := 1970;
   Term  : Natural := Natural(Year(Clock));
   
   N : Natural := Term - (Start - 1);
   
   
   
begin
   Put_Line(Case_Enum'Image(Case_Enum'Val(N mod Case_Enum'Pos(Case_Enum'Last))));
   
end Schmilblick;