use strict;
use Time::Warp;

&speed;
&lunch;
&speed;

sub speed {
  to(time+14400);
  scale(scale*16);
}
sub lunch {
  to(time+3600);
  scale(scale*.25);
}