The script I want to write...

while (work_to_do) {
   set distractions = 0;
   set speed_of_execution = high;
   do_work();
   set not_at_work=soon;
}
while (not_at_work) {
   select {}
      when (sleeping) {
         slow_down_clock();
         set distractions = 0;
         set phone = off; ## should be covered by above, but let's be safe...
      }
      when (awake) {
         set distractions = 1;
         set fun = high;
      }
      always {
         set work_to_do = false;
      }
}