unable to display fshow for tagVec

bs/Util.bs

@@ -1,4 +1,15 @@
-package Util((|>)) where
+package Util((|>), simulate_for) where
 
 (|>) :: (a -> b) -> a -> b
-f |> x = f x;
+f |> x = f x;
+
+simulate_for :: (Bits a n, Arith a, Eq a) => Reg a -> Reg a -> Rules
+simulate_for curr_cycle end_cycle =
+  rules
+    "count_cycle_rule": when True ==> action
+      curr_cycle := curr_cycle + 1
+      if curr_cycle == end_cycle
+        then 
+          $finish
+        else
+          $display "cycle = " curr_cycle