Add mes and mescc-tools-extra

mescc-tools-extra contains two important tools:
- cp
- chmod

mes first builds itself from a mes 0.21 seed as used by guix, and then
builds a mes 0.22 and then mes 0.22 using that created mes 0.22.

It does /not/ use bootstrap.sh as we don't have a proper shell at this
point, it has been manually adapted for kaem.

sysa/mes-0.22/scaffold/boot/call-cc.scm

@@ -0,0 +1,60 @@
+;;; GNU Mes --- Maxwell Equations of Software
+;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;;
+;;; This file is part of GNU Mes.
+;;;
+;;; GNU Mes is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Mes is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+
+;; ,expand (let loop ((i 10)) (if (eq? i 0) 0 (begin (core:display-error i) (core:display-error "\n") (loop (- i 1)))))
+;; (let loop ((i 10)) (if (eq? i 0) 0 (begin (display i) (display "\n") (loop (- i 1)))))
+
+(define global "global\n")
+(define v #(0 1 2))
+(define vv #(#(0 1 2) 0 1 2))
+((lambda (loop)
+   (set! loop
+         (lambda (i)
+           (core:display global)
+           (core:display (values 'foobar global))
+           (core:display v)
+           (core:display vv)
+           (core:display "i=")
+           (core:display i)
+           (core:display "\n")
+           (if (eq? i 0) 0
+               (begin
+                 ((lambda (cont seen?)
+                   (+ 1 (call-with-current-continuation (lambda (c) (set! cont c) 1)))
+                   (core:display "  seen?=")
+                   (core:display seen?)
+                   (core:display "\n")
+                   (if seen? 0
+                       (begin
+                         (set! seen? #t)
+                         (cont 2))))
+                  #f #f)
+                 (loop (- i 1))))))
+   (loop 10000))
+ *unspecified*)
+
+;; ((lambda (cont seen?)
+;;    (+ 1 (call-with-current-continuation (lambda (c) (set! cont c) 1)))
+;;    (core:display "seen?=")
+;;    (core:display seen?)
+;;    (core:display "\n")
+;;    (if seen? 0
+;;        (begin
+;;          (set! seen? #t)
+;;          (cont 2))))
+;;  #f #f)