M tests/num.min → tests/num.min

@@ -32,6 +32,8 @@ (1000 random 1000 <) assert
 
   ((1 2 3 4 5) sum 15 ==) assert
 
+  ((1 2 3 4 5) product 120 ==) assert
+
   (0 :c
     (c 10 <) (c succ @c) while
     c 10 ==) assert