diff --git a/src/testCase/utTpfm.erl b/src/testCase/utTpfm.erl
index b1882be..dbcb504 100644
--- a/src/testCase/utTpfm.erl
+++ b/src/testCase/utTpfm.erl
@@ -574,5 +574,35 @@ load2(N, List) ->
    utStrToBeam:load(load2, [{get, 1}], binary_to_list(LastStr)),
    load2(N - 1, List).
 
+lMakeList(0, Acc) ->
+   Acc;
+lMakeList(Num, Acc) ->
+   NewAcc = [{rand:uniform(1000000), rand:uniform(1000000), rand:uniform(1000000)} | Acc],
+   lMakeList(Num - 1, NewAcc).
+
+lSort(Cnt, Num) ->
+   SList = lMakeList(Num, []),
+   utTc:ts(Cnt, lists, sort, [SList]).
+
+bp(0, _Str) ->
+   ok;
+bp(Cnt, Str) ->
+   binary:split(Str, <<"~">>),
+   bp(Cnt - 1, Str).
+
+
+bp1(Cnt, Str) ->
+   Pt = binary:compile_pattern(<<"~">>),
+   persistent_term:put(aaaaa, Pt),
+   bp11(Cnt, Str).
+
+bp11(0, _Str) ->
+   ok;
+bp11(Cnt, Str) ->
+   binary:split(Str, persistent_term:get(aaaaa)),
+   bp11(Cnt - 1, Str).
+
+
+