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/tests/read.test

@@ -0,0 +1,84 @@
+#! /bin/sh
+# -*-scheme-*-
+
+# For use as a scaffolded sexp reader test
+# ***REMOVE THIS BLOCK COMMENT INITIALLY***
+
+# GNU Mes --- Maxwell Equations of Software
+# Copyright © 2016, 2017,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/>.
+
+if [ "$MES" != guile ]; then
+    MES=${MES-$(dirname $0)/../bin/mes}
+    MES_BOOT=boot-02.scm exec $MES < $0
+fi
+
+exec ${MES-mes} --no-auto-compile -s $0
+!#
+
+0
+cons
+(cons 0 1)
+(display 0) (newline)
+#t
+#f
+(display #t) (newline)
+(display #f) (newline)
+'foo
+(display 'foo) (newline)
+(display #o77) (newline)
+(display #o-6) (newline)
+(display #x16) (newline)
+(display #x-16) (newline)
+(display #\A) (newline)
+(display #\newline) (newline)
+#\alarm
+#\backspace
+#\tab
+#\newline
+#\vtab
+#\page
+#\return
+#\space
+(display "\"")
+(display "\\")
+(display "\\\"\"\\")
+(display 'foo)(newline)
+(display '(foo))(newline)
+(display '('foo))(newline)
+(display (cdr '(car . cdr))) (newline)
+(display "foo bar") (newline)
+;;barf
+#!
+barf
+!#
+#|
+burp
+|#
+#;(bla) (display "must see!\n")
+(display
+  (lambda (x)
+   #;()#t)
+  )
+(display #(0 1 2)) (newline)
+(display (list '(foo
+            #! boo !#
+            ;;(bb 4)
+            )
+          ))
+(newline)
+;; TODO: syntax, unsyntax, unsyntax-splicing