sub str_from_bits {
    my $vec = '';
    vec( $vec, $_, 1) = 1 for @_;
    $vec;
}

sub str_to_bits {
    my $vec = shift;
    grep vec( $vec, $_, 1), 0 .. 8*( length $vec);
}