{
    my $says;

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