sub heavy_lifting {
  my $self = shift;
  my $arg = shift;
  return defined $self->{ _heavy } ? $self->{ _heavy }
                                   : $self->{ _heavy } = $self->grunt( $arg );
}