simplify `create` section of ByteString.lhs