Increase block size in cat.rla. Print GC stats to stderr.

cat.rla

@@ -1,6 +1,6 @@
 ;(lambda (pathname)
 ;  (let [(fd (posix-open pathname O_RDONLY))]
-;    (let [(str (make-byte-string 128))]
+;    (let [(str (make-byte-string 4096))]
 ;      (let loop ()
 ;        (let [(size (posix-read fd str (byte-string-size str)))] 
 ;          (posix-write 1 str size))
@@ -17,7 +17,7 @@
       ;                    (loop)))]
       ;     (loop)))
       #(
-        128
+        4096
         #S(#="template"
           #(#="posix-read")
           "\x80\x81\x83\xff"  ; #(f0 f1 f3 ctx)

rosella.c

@@ -78,7 +78,7 @@ int main(int argc, char **argv)
 
       nl();
       fflush(stdout);
-      print_gc_stats();
+      fprint_gc_stats(stderr);
     }
     else
     {