2017-05-15: evolve works again

evolve works again

diff --git a/examples/evolve.w b/examples/evolve.w
--- a/examples/evolve.w
+++ b/examples/evolve.w
@@ -7,8 +7,6 @@ exec guile -L $(dirname $(dirname $(real
 
 ; TODO: genetic with mutate+combinate, population which keeps the best and directed which only keeps improvements
 
-; NOTE: This only works after preprocessing to scheme.
-
 define-module : examples evolve
               . #:export : main
 
@@ -156,7 +154,3 @@ define : main args
          newline
 
 
-define : main
-       display "foo"
-       newline 
-       run
diff --git a/examples/unbiased-std.w b/examples/unbiased-std.w
--- a/examples/unbiased-std.w
+++ b/examples/unbiased-std.w
@@ -28,3 +28,4 @@ let : : res : std 0 0 3
   when : not : > 0.01 : abs : - res : * 1.129 : sqrt 3 ;; calculated by hand
          format #t "Bug: (std 0 0 3) gives ~a instead of 1.995\n" res
 
+write : std 5860.16 6141.81 6088.67