Replace xwrite/xdisplay/xnewline with non-x names

scheme-examples/cps.scm

@@ -295,14 +295,14 @@ todo:
 
  (let ((x 0))
    (while (< x 10)
-     (begin (print x) (set! x (+ 1 x)))))
+     (begin (write x) (set! x (+ 1 x)))))
  =>
   (let ((x 0))
     (reset
      (let ((l #f))
        (let ((k (shift k (k k))))
          (if (< x 10)
-             (begin (set! l (begin (print x)
+             (begin (set! l (begin (write x)
                                    (set! x (+ 1 x))))
                     (k k))
            l)))))

scheme-examples/rule30.scm

@@ -19,7 +19,5 @@
               s))
 
 (for-each (lambda (n)
-            (begin
-              (princ (bin-draw (string.lpad (number->string n 2) 63 #\0)))
-              (newline)))
+            (displayln (bin-draw (string.lpad (number->string n 2) 63 #\0))))
           (nestlist rule30-step (uint64 #x0000000080000000) 32))