2015-02-13: output result, too

output result, too

diff --git a/examples/evolve.w b/examples/evolve.w
--- a/examples/evolve.w
+++ b/examples/evolve.w
@@ -106,8 +106,12 @@ define : evolution initialstring steps
 define : run 
        ; firstoff, seed the random number generator!
        set! *random-state* : random-state-from-platform
-       display : evolution "+ 123 (- 2 1)" 1000
-       newline
+       let 
+         : opt : evolution "+ 123 (- 2 1)" 1000
+         write opt
+         newline
+         write : mutate-eval opt
+         newline
 
 
 run