diff --git a/src/testCase/utTpfm.erl b/src/testCase/utTpfm.erl
index 9c06a1d..661ed9f 100644
--- a/src/testCase/utTpfm.erl
+++ b/src/testCase/utTpfm.erl
@@ -649,4 +649,31 @@ loop() ->
          loop()
    end.
 
+td1(List) ->
+   [{One, One, One, One} ||  One <- List],
+   ok.
+
+td2(List) ->
+   [{One, One, One, One} ||  One <- List].
+
+forL(0, L) ->
+   ok;
+forL(Index, L) ->
+   lists:nth(Index, L),
+   forL(Index - 1, L).
+
+forL(0, _L, _) ->
+   ok;
+forL(Index, L, _) ->
+   V = lists:nth(Index, L),
+   forL(Index - 1, L, V).
+
+forB(0, _B, _) ->
+   ok;
+forB(Index, B, _) ->
+   BIndex = Index * 3,
+   <<_:BIndex/bits, V:3, _/bits>> = B,
+   forB(Index - 1, B, V).
+
+