sub g_w {

    my ($gewspr, $wort) = @_;
    return encode_entities($sprache{$gewspr}->{$wort});

}# g_w