From 633274d22bf18fd4a42d2f94061121b85c166327 Mon Sep 17 00:00:00 2001
From: juerg <juerg@pluto.fritz.box>
Date: Thu, 7 Dec 2023 21:30:31 +0100
Subject: [PATCH] refactoring

---
 doc/examples/scripts/aes-speed.venice | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/doc/examples/scripts/aes-speed.venice b/doc/examples/scripts/aes-speed.venice
index f62306adf..ffef52a70 100644
--- a/doc/examples/scripts/aes-speed.venice
+++ b/doc/examples/scripts/aes-speed.venice
@@ -21,17 +21,17 @@
 
 ;;;; Compares AES-256 encryption/decryption speed
 
-;;                                               MacBookAir M2 2022
-;; ----------------------------------------------------------------
-;;                      2KB    20KB   200KB     2MB    20MB   200MB
-;; ----------------------------------------------------------------
-;; Encrypt AES CBC:    88ms    64ms    65ms    75ms   168ms  1134ms
-;; Decrypt AES CBC:    66ms    65ms    65ms    76ms   162ms  1041ms
-;; Encrypt AES GCM:    66ms    64ms    66ms    77ms   166ms  1192ms
-;; Decrypt AES GCM:    76ms    65ms    66ms    76ms   164ms  1052ms
-;; Encrypt ZIP:         9ms     5ms    10ms    61ms   571ms  5702ms
-;; Decrypt ZIP:         8ms    10ms     6ms    25ms   202ms  1998ms
-;; ----------------------------------------------------------------
+;;                                                   MacBookAir M2 2022
+;; --------------------------------------------------------------------
+;;                          2KB    20KB   200KB     2MB    20MB   200MB
+;; --------------------------------------------------------------------
+;; Encrypt AES-256 CBC:    88ms    64ms    65ms    75ms   168ms  1134ms
+;; Decrypt AES-256 CBC:    66ms    65ms    65ms    76ms   162ms  1041ms
+;; Encrypt AES-256 GCM:    66ms    64ms    66ms    77ms   166ms  1192ms
+;; Decrypt AES-256 GCM:    76ms    65ms    66ms    76ms   164ms  1052ms
+;; Encrypt AES-256 ZIP:     9ms     5ms    10ms    61ms   571ms  5702ms
+;; Decrypt AES-256 ZIP:     8ms    10ms     6ms    25ms   202ms  1998ms
+;; --------------------------------------------------------------------
 
 
 
@@ -125,13 +125,13 @@
                                                   passwd
                                                   (io/file-name aes-file-unzip) 
                                                   data-file)))]
-        (printel "Encrypt ZIP:" t))
+        (printel "Encrypt AES ZIP:" t))
 
       (let [t (timing/elapsed (fn [] (decrypt-zip aes-file-zip 
                                                   passwd
                                                   (io/file-name aes-file-unzip)
                                                   (io/file-parent aes-file-unzip))))]
-        (printel "Decrypt ZIP:" t))
+        (printel "Decrypt AES ZIP:" t))
                                      
       (println)            
       (println "Decrypt verify AES CBC: "