with text_Io;
use Text_Io;
with Ada.Calendar;
use Ada.Calendar;
procedure Schmilblique is
   
   
   
   type Case_Enum is (Chaos, Machine, Program, Result, Manuel);
   
   Start : Natural := 666;
   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 Schmilblique;