sub is_stupid {
    my $self = shift;
    return $self->{inteligence} < 3;
}