%to do: 
% 1a. atoms got to manageOccisionalEvents=t
% 1b. todo: not attoms got to X =f
% 2 tim says that
% 3 lint tool- used never set
tim says that. % t

manageOccasionalEvent if
   saveAndScheduleOccasion and learnOccasion

manaageOccasionalEvent if
   insertEvent and setReminder
t