sub speak {
    my $animal = shift;
    state $says = initialize_says();
    die unless defined $says->{$animal};
    return $says->{$animal};
}