while ($alive) {
 wake;
 look($beside_me);
 $happiness++;
 OccupyDay;
 sleep (18000 + rand(18000));
}
die;