sub walk {
  my $self = shift;
  $self->{Feet}->walk();
  return;
}

sub pick {
  my ($self, $thing) = @_;
  return $self->{Arm}->pick( $thing );
}