sub huff1 {
    my ( $string, $codes) = @_;

    my ( $ret, $len) = ( '', 0); # $len counts bits
    for ( split( //, $string), '_eos' ) {
        vec( $ret, $len ++, 1) = $_ for split //, $codes->{ $_};
    }
    return $ret;
}