X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=expr%2Fexist%2FwhileMult.icl;h=a7e6283648c46ad3b14d6ff5abe05bae7745da10;hb=d567d59672fcdfc1b88bd05d657eb170c8d7b9c5;hp=379404e369b34b4e589c0b624d5e55711b085c05;hpb=938d3406c1e406db293024b9a5710579a0090893;p=clean-tests.git

diff --git a/expr/exist/whileMult.icl b/expr/exist/whileMult.icl
index 379404e..a7e6283 100644
--- a/expr/exist/whileMult.icl
+++ b/expr/exist/whileMult.icl
@@ -4,3 +4,4 @@ import StdEnv
 import while
 
 instance evali WMult where evali (WMult a b) = \g->evali a g * evali b g
+instance print WMult where print (WMult a b) = print a +++ " * " +++ print b