fix lmul

prelude.tcl

@@ -12,7 +12,7 @@ proc ladd {list} {
 
 proc lmul {list} {
     set p 1
-    foreach x $list { set p [eval {$p * $x}] }
+    foreach x $list { set p [expr {$p * $x}] }
     return $p
 }