How to join list of bitstrings?

Having a list of bitstrings, need to join into a single bitstring:

join(Bs) ->
    F = fun(B, Bt) -> <<B/bitstring, Bt/bitstring>> end,
    lists:foldr(F, <<>>, Bs).

Could you please advise faster way to do this?