shen-ruby 0.3.1 → 0.4.0

data/shen/release/k_lambda/types.kl

@@ -1,108 +1,78 @@
-
-"                                                   The License
- 
- The user is free to produce commercial applications with the software, to distribute these applications in source or binary  form, and to charge monies for them as he sees fit and in concordance with the laws of the land subject to the following  license.
- 
- 1. The license applies to all the software and all derived software and must appear on such.
- 2. It is illegal to distribute the software without this license attached to it and use of the software implies agreement 
-    with the license as such. It is illegal for anyone who is not the copyright holder to tamper with or change the license.
- 3. Neither the names of Lambda Associates or the copyright holder may be used to endorse or promote products built using
-     the software without specific prior written permission from the copyright holder.
- 4. That possession of this license does not confer on the copyright holder any special contractual obligation towards the    user. That in no event shall the copyright holder be liable for any direct, indirect, incidental, special, exemplary or   consequential damages (including but not limited to procurement of substitute goods or services, loss of use, data, or    profits; or business interruption), however caused and on any theory of liability, whether in contract, strict liability   or tort (including negligence) arising in any way out of the use of the software, even if advised of the possibility of   such damage. 
-5. It is permitted for the user to change the software, for the purpose of improving performance, correcting an error, or    porting to a new platform, and distribute the modified version of Shen (hereafter the modified version) provided the     resulting program conforms in all respects to the Shen standard and is issued under that title. The user must make it clear   with his distribution that he/she is the author of the changes and what these changes are and why. 
-6. Derived versions of this software in whatever form are subject to the same restrictions. In particular it is not          permitted to make derived copies of this software which do not conform to the Shen standard or appear under a different title.
-7. It is permitted to distribute versions of Shen which incorporate libraries, graphics or other facilities which are not    part of the Shen standard.
-
-For an explication of this license see http://www.lambdassociates.org/News/june11/license.htm which explains this license in full."
-
-(defun declare (V1679 V1680)
- (let Record (set shen-*signedfuncs* (adjoin V1679 (value shen-*signedfuncs*)))
-  (let Variancy
-   (trap-error (shen-variancy-test V1679 V1680) (lambda E shen-skip))
-   (let Type (shen-rcons_form (shen-normalise-type V1680))
-    (let F* (concat shen-type-signature-of- V1679)
-     (let Parameters (shen-parameters 1)
-      (let Clause
-       (cons (cons F* (cons X ()))
-        (cons :- (cons (cons (cons unify! (cons X (cons Type ()))) ()) ())))
-       (let AUM_instruction (shen-aum Clause Parameters)
-        (let Code (shen-aum_to_shen AUM_instruction)
-         (let ShenDef
-          (cons define
-           (cons F*
-            (append Parameters
-             (append (cons ProcessN (cons Continuation ()))
-              (cons -> (cons Code ()))))))
-          (let Eval (shen-eval-without-macros ShenDef) V1679)))))))))))
-
-(defun shen-normalise-type (V1681)
- (fix (lambda V1682 (shen-normalise-type-help V1682)) V1681))
-
-(defun shen-normalise-type-help (V1683)
- (cond
-  ((cons? V1683)
-   (shen-normalise-X
-    (map (lambda V1684 (shen-normalise-type-help V1684)) V1683)))
-  (true (shen-normalise-X V1683))))
-
-(defun shen-normalise-X (V1685)
- (let Val (assoc V1685 (value shen-*synonyms*))
-  (if (empty? Val) V1685 (tl Val))))
-
-(defun shen-variancy-test (V1686 V1687)
- (let TypeF (shen-typecheck V1686 B)
-  (let Check
-   (if (= symbol TypeF) shen-skip
-    (if (shen-variant? TypeF V1687) shen-skip
-     (intoutput "warning: changing the type of ~A may create errors~%"
-      (@p V1686 ()))))
-   shen-skip)))
-
-(defun shen-variant? (V1696 V1697)
- (cond ((= V1697 V1696) true)
-  ((and (cons? V1696) (and (cons? V1697) (= (hd V1697) (hd V1696))))
-   (shen-variant? (tl V1696) (tl V1697)))
-  ((and (cons? V1696)
-    (and (cons? V1697) (and (shen-pvar? (hd V1696)) (variable? (hd V1697)))))
-   (shen-variant? (subst shen-a (hd V1696) (tl V1696))
-    (subst shen-a (hd V1697) (tl V1697))))
-  ((and (cons? V1696)
-    (and (cons? (hd V1696)) (and (cons? V1697) (cons? (hd V1697)))))
-   (shen-variant? (append (hd V1696) (tl V1696))
-    (append (hd V1697) (tl V1697))))
-  (true false)))
+"**********************************************************************************
+*                           The License						                                      *
+* 										                                                                  *
+* The user is free to produce commercial applications with the software, to 	          *
+* distribute these applications in source or binary  form, and to charge monies         *
+* for them as he sees fit and in concordance with the laws of the land subject 	        *
+* to the following license.							                                                *
+*										                                                                    * 
+* 1. The license applies to all the software and all derived software and 	            *
+*    must appear on such.							                                                  *
+*										                                                                    *
+* 2. It is illegal to distribute the software without this license attached	            *
+*    to it and use of the software implies agreement with the license as such.          *
+*    It is illegal for anyone who is not the copyright holder to tamper with 	          *
+*    or change the license.							                                                *
+*										                                                                    *
+* 3. Neither the names of Lambda Associates or the copyright holder may be used         *
+*    to endorse or promote products built using the software without specific 	        *
+*    prior written permission from the copyright holder.		                            *
+*										                                                                    *
+* 4. That possession of this license does not confer on the copyright holder 	          *
+*    any special contractual obligation towards the user. That in no event 	            * 
+*    shall the copyright holder be liable for any direct, indirect, incidental,        *   
+*    special, exemplary or consequential damages (including but not limited             *
+*    to procurement of substitute goods or services, loss of use, data, 	              * 
+*    interruption), however caused and on any theory of liability, whether in	          * 
+*    contract, strict liability or tort (including negligence) arising in any         	*
+*    way out of the use of the software, even if advised of the possibility of         	*
+*    such damage.						                                                        		* 
+*										                                                                    *
+* 5. It is permitted for the user to change the software, for the purpose of 	          *
+*    improving performance, correcting an error, or porting to a new platform, 	        *
+*    and distribute the derived version of Shen provided the resulting program 	        *
+*    conforms in all respects to the Shen standard and is issued under that             * 
+*    title. The user must make it clear with his distribution that he/she is 	          *
+*    the author of the changes and what these changes are and why. 		                  *
+*										                                                                    *
+* 6. Derived versions of this software in whatever form are subject to the same         *
+*    restrictions. In particular it is not permitted to make derived copies of          *
+*    this software which do not conform to the Shen standard or appear under a          *
+*    different title.								                                                    *
+*										                                                                    *
+*    It is permitted to distribute versions of Shen which incorporate libraries,        *
+*    graphics or other facilities which are not part of the Shen standard.	            *
+*										                                                                    *
+* For an explication of this license see www.shenlanguage.org/license.htm which         *
+* explains this license in full.                                                        *
+*				 						                                                                    *
+*****************************************************************************************
+"(defun declare (V2071 V2072) (let Record (set shen.*signedfuncs* (adjoin V2071 (value shen.*signedfuncs*))) (let Variancy (trap-error (shen.variancy-test V2071 V2072) (lambda E shen.skip)) (let Type (shen.rcons_form (shen.normalise-type V2072)) (let F* (concat shen.type-signature-of- V2071) (let Parameters (shen.parameters 1) (let Clause (cons (cons F* (cons X ())) (cons :- (cons (cons (cons unify! (cons X (cons Type ()))) ()) ()))) (let AUM_instruction (shen.aum Clause Parameters) (let Code (shen.aum_to_shen AUM_instruction) (let ShenDef (cons define (cons F* (append Parameters (append (cons ProcessN (cons Continuation ())) (cons -> (cons Code ())))))) (let Eval (shen.eval-without-macros ShenDef) V2071)))))))))))
+
+(defun shen.normalise-type (V2073) (fix shen.normalise-type-help V2073))
+
+(defun shen.normalise-type-help (V2074) (cond ((cons? V2074) (shen.normalise-X (map shen.normalise-type-help V2074))) (true (shen.normalise-X V2074))))
+
+(defun shen.normalise-X (V2075) (let Val (assoc V2075 (value shen.*synonyms*)) (if (empty? Val) V2075 (tl Val))))
+
+(defun shen.variancy-test (V2076 V2077) (let TypeF (shen.typecheck V2076 B) (let Check (if (= symbol TypeF) shen.skip (if (shen.variant? TypeF V2077) shen.skip (pr (cn "warning: changing the type of " (shen.app V2076 " may create errors
+" shen.a)) (stoutput)))) shen.skip)))
+
+(defun shen.variant? (V2086 V2087) (cond ((= V2087 V2086) true) ((and (cons? V2086) (and (cons? V2087) (= (hd V2087) (hd V2086)))) (shen.variant? (tl V2086) (tl V2087))) ((and (cons? V2086) (and (cons? V2087) (and (shen.pvar? (hd V2086)) (variable? (hd V2087))))) (shen.variant? (subst shen.a (hd V2086) (tl V2086)) (subst shen.a (hd V2087) (tl V2087)))) ((and (cons? V2086) (and (cons? (hd V2086)) (and (cons? V2087) (cons? (hd V2087))))) (shen.variant? (append (hd V2086) (tl V2086)) (append (hd V2087) (tl V2087)))) (true false)))
 
 (declare absvector? (cons A (cons --> (cons boolean ()))))
 
-(declare adjoin
- (cons A
-  (cons -->
-   (cons
-    (cons (cons list (cons A ()))
-     (cons --> (cons (cons list (cons A ())) ())))
-    ()))))
-
-(declare and
- (cons boolean
-  (cons --> (cons (cons boolean (cons --> (cons boolean ()))) ()))))
-
-(declare append
- (cons (cons list (cons A ()))
-  (cons -->
-   (cons
-    (cons (cons list (cons A ()))
-     (cons --> (cons (cons list (cons A ())) ())))
-    ()))))
+(declare adjoin (cons A (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons list (cons A ())) ()))) ()))))
+
+(declare and (cons boolean (cons --> (cons (cons boolean (cons --> (cons boolean ()))) ()))))
+
+(declare shen.app (cons A (cons --> (cons (cons string (cons --> (cons (cons symbol (cons --> (cons string ()))) ()))) ()))))
+
+(declare append (cons (cons list (cons A ())) (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons list (cons A ())) ()))) ()))))
 
 (declare arity (cons A (cons --> (cons number ()))))
 
-(declare assoc
- (cons A
-  (cons -->
-   (cons
-    (cons (cons list (cons (cons list (cons A ())) ()))
-     (cons --> (cons (cons list (cons A ())) ())))
-    ()))))
+(declare assoc (cons A (cons --> (cons (cons (cons list (cons (cons list (cons A ())) ())) (cons --> (cons (cons list (cons A ())) ()))) ()))))
 
 (declare boolean? (cons A (cons --> (cons boolean ()))))
 
@@ -110,67 +80,41 @@ For an explication of this license see http://www.lambdassociates.org/News/june1
 
 (declare cd (cons string (cons --> (cons string ()))))
 
-(declare close
- (cons (cons stream (cons A ()))
-  (cons --> (cons (cons list (cons B ())) ()))))
+(declare close (cons (cons stream (cons A ())) (cons --> (cons (cons list (cons B ())) ()))))
 
-(declare cn
- (cons string
-  (cons --> (cons (cons string (cons --> (cons string ()))) ()))))
+(declare cn (cons string (cons --> (cons (cons string (cons --> (cons string ()))) ()))))
 
-(declare concat
- (cons symbol
-  (cons --> (cons (cons symbol (cons --> (cons symbol ()))) ()))))
+(declare compile (cons (cons (cons list (cons A ())) (cons ==> (cons B ()))) (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons (cons (cons list (cons A ())) (cons --> (cons B ()))) (cons --> (cons B ()))) ()))) ()))))
 
 (declare cons? (cons A (cons --> (cons boolean ()))))
 
-(declare destroy
- (cons (cons A (cons --> (cons B ())))
-  (cons --> (cons (cons A (cons --> (cons B ()))) ()))))
+(declare destroy (cons (cons A (cons --> (cons B ()))) (cons --> (cons (cons A (cons --> (cons B ()))) ()))))
 
-(declare difference
- (cons (cons list (cons A ()))
-  (cons -->
-   (cons
-    (cons (cons list (cons A ()))
-     (cons --> (cons (cons list (cons A ())) ())))
-    ()))))
+(declare difference (cons (cons list (cons A ())) (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons list (cons A ())) ()))) ()))))
 
 (declare do (cons A (cons --> (cons (cons B (cons --> (cons B ()))) ()))))
 
-(declare element?
- (cons A
-  (cons -->
-   (cons (cons (cons list (cons A ())) (cons --> (cons boolean ()))) ()))))
+(declare <e> (cons (cons list (cons A ())) (cons ==> (cons (cons list (cons B ())) ()))))
+
+(declare <!> (cons (cons list (cons A ())) (cons ==> (cons (cons list (cons A ())) ()))))
+
+(declare element? (cons A (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons boolean ()))) ()))))
 
 (declare empty? (cons A (cons --> (cons boolean ()))))
 
 (declare enable-type-theory (cons symbol (cons --> (cons boolean ()))))
 
-(declare external
- (cons symbol (cons --> (cons (cons list (cons symbol ())) ()))))
-
-(declare interror
- (cons string (cons --> (cons (cons A (cons --> (cons B ()))) ()))))
+(declare external (cons symbol (cons --> (cons (cons list (cons symbol ())) ()))))
 
 (declare error-to-string (cons exception (cons --> (cons string ()))))
 
 (declare explode (cons A (cons --> (cons (cons list (cons string ())) ()))))
 
-(declare fail-if
- (cons (cons symbol (cons --> (cons boolean ())))
-  (cons --> (cons (cons symbol (cons --> (cons symbol ()))) ()))))
+(declare fail-if (cons (cons symbol (cons --> (cons boolean ()))) (cons --> (cons (cons symbol (cons --> (cons symbol ()))) ()))))
 
-(declare fix
- (cons (cons A (cons --> (cons A ())))
-  (cons --> (cons (cons A (cons --> (cons A ()))) ()))))
+(declare fix (cons (cons A (cons --> (cons A ()))) (cons --> (cons (cons A (cons --> (cons A ()))) ()))))
 
-(declare format
- (cons (cons stream (cons out ()))
-  (cons -->
-   (cons
-    (cons string (cons --> (cons (cons A (cons --> (cons string ()))) ())))
-    ()))))
+(declare format (cons (cons stream (cons out ())) (cons --> (cons (cons string (cons --> (cons (cons A (cons --> (cons string ()))) ()))) ()))))
 
 (declare freeze (cons A (cons --> (cons (cons lazy (cons A ())) ()))))
 
@@ -178,25 +122,15 @@ For an explication of this license see http://www.lambdassociates.org/News/june1
 
 (declare gensym (cons symbol (cons --> (cons symbol ()))))
 
-(declare <-vector
- (cons (cons vector (cons A ()))
-  (cons --> (cons (cons number (cons --> (cons A ()))) ()))))
+(declare <-vector (cons (cons vector (cons A ())) (cons --> (cons (cons number (cons --> (cons A ()))) ()))))
 
-(declare vector->
- (cons (cons vector (cons A ()))
-  (cons -->
-   (cons
-    (cons number
-     (cons -->
-      (cons (cons A (cons --> (cons (cons vector (cons A ())) ()))) ())))
-    ()))))
+(declare vector-> (cons (cons vector (cons A ())) (cons --> (cons (cons number (cons --> (cons (cons A (cons --> (cons (cons vector (cons A ())) ()))) ()))) ()))))
 
 (declare vector (cons number (cons --> (cons (cons vector (cons A ())) ()))))
 
 (declare get-time (cons symbol (cons --> (cons number ()))))
 
-(declare hash
- (cons A (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
+(declare hash (cons A (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
 
 (declare head (cons (cons list (cons A ())) (cons --> (cons A ()))))
 
@@ -204,31 +138,19 @@ For an explication of this license see http://www.lambdassociates.org/News/june1
 
 (declare hdstr (cons string (cons --> (cons string ()))))
 
-(declare if
- (cons boolean
-  (cons -->
-   (cons (cons A (cons --> (cons (cons A (cons --> (cons A ()))) ())))
-    ()))))
+(declare if (cons boolean (cons --> (cons (cons A (cons --> (cons (cons A (cons --> (cons A ()))) ()))) ()))))
 
-(declare include
- (cons (cons list (cons symbol ()))
-  (cons --> (cons (cons list (cons symbol ())) ()))))
+(declare include (cons (cons list (cons symbol ())) (cons --> (cons (cons list (cons symbol ())) ()))))
 
-(declare include-all-but
- (cons (cons list (cons symbol ()))
-  (cons --> (cons (cons list (cons symbol ())) ()))))
+(declare include-all-but (cons (cons list (cons symbol ())) (cons --> (cons (cons list (cons symbol ())) ()))))
 
-(declare inferences (cons A (cons --> (cons number ()))))
+(declare inferences (cons --> (cons number ())))
+
+(declare shen.insert (cons A (cons --> (cons (cons string (cons --> (cons string ()))) ()))))
 
 (declare integer? (cons A (cons --> (cons boolean ()))))
 
-(declare intersection
- (cons (cons list (cons A ()))
-  (cons -->
-   (cons
-    (cons (cons list (cons A ()))
-     (cons --> (cons (cons list (cons A ())) ())))
-    ()))))
+(declare intersection (cons (cons list (cons A ())) (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons list (cons A ())) ()))) ()))))
 
 (declare length (cons (cons list (cons A ())) (cons --> (cons number ()))))
 
@@ -236,24 +158,9 @@ For an explication of this license see http://www.lambdassociates.org/News/june1
 
 (declare load (cons string (cons --> (cons symbol ()))))
 
-(declare intmake-string
- (cons string (cons --> (cons (cons A (cons --> (cons string ()))) ()))))
-
-(declare map
- (cons (cons A (cons --> (cons B ())))
-  (cons -->
-   (cons
-    (cons (cons list (cons A ()))
-     (cons --> (cons (cons list (cons B ())) ())))
-    ()))))
-
-(declare mapcan
- (cons (cons A (cons --> (cons (cons list (cons B ())) ())))
-  (cons -->
-   (cons
-    (cons (cons list (cons A ()))
-     (cons --> (cons (cons list (cons B ())) ())))
-    ()))))
+(declare map (cons (cons A (cons --> (cons B ()))) (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons list (cons B ())) ()))) ()))))
+
+(declare mapcan (cons (cons A (cons --> (cons (cons list (cons B ())) ()))) (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons list (cons B ())) ()))) ()))))
 
 (declare maxinferences (cons number (cons --> (cons number ()))))
 
@@ -263,79 +170,49 @@ For an explication of this license see http://www.lambdassociates.org/News/june1
 
 (declare not (cons boolean (cons --> (cons boolean ()))))
 
-(declare nth
- (cons number
-  (cons -->
-   (cons (cons (cons list (cons A ())) (cons --> (cons A ()))) ()))))
+(declare nth (cons number (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons A ()))) ()))))
 
 (declare number? (cons A (cons --> (cons boolean ()))))
 
-(declare occurrences
- (cons A (cons --> (cons (cons B (cons --> (cons number ()))) ()))))
+(declare occurrences (cons A (cons --> (cons (cons B (cons --> (cons number ()))) ()))))
 
 (declare occurs-check (cons symbol (cons --> (cons boolean ()))))
 
-(declare or
- (cons boolean
-  (cons --> (cons (cons boolean (cons --> (cons boolean ()))) ()))))
+(declare or (cons boolean (cons --> (cons (cons boolean (cons --> (cons boolean ()))) ()))))
 
-(declare intoutput
- (cons string (cons --> (cons (cons A (cons --> (cons string ()))) ()))))
+(declare pos (cons string (cons --> (cons (cons number (cons --> (cons string ()))) ()))))
 
-(declare pos
- (cons string
-  (cons --> (cons (cons number (cons --> (cons string ()))) ()))))
-
-(declare pr
- (cons string
-  (cons -->
-   (cons (cons (cons stream (cons out ())) (cons --> (cons string ())))
-    ()))))
+(declare pr (cons string (cons --> (cons (cons (cons stream (cons out ())) (cons --> (cons string ()))) ()))))
 
 (declare print (cons A (cons --> (cons A ()))))
 
-(declare profile
- (cons (cons A (cons --> (cons B ())))
-  (cons --> (cons (cons A (cons --> (cons B ()))) ()))))
+(declare profile (cons (cons A (cons --> (cons B ()))) (cons --> (cons (cons A (cons --> (cons B ()))) ()))))
+
+(declare preclude (cons (cons list (cons symbol ())) (cons --> (cons (cons list (cons symbol ())) ()))))
 
-(declare preclude
- (cons (cons list (cons symbol ()))
-  (cons --> (cons (cons list (cons symbol ())) ()))))
+(declare shen.proc-nl (cons string (cons --> (cons string ()))))
 
 (declare profile-results (cons A (cons --> (cons symbol ()))))
 
 (declare protect (cons symbol (cons --> (cons symbol ()))))
 
-(declare preclude-all-but
- (cons (cons list (cons symbol ()))
-  (cons --> (cons (cons list (cons symbol ())) ()))))
+(declare preclude-all-but (cons (cons list (cons symbol ())) (cons --> (cons (cons list (cons symbol ())) ()))))
+
+(declare ps (cons symbol (cons --> (cons (cons list (cons unit ())) ()))))
 
-(declare read-byte
- (cons (cons stream (cons in ())) (cons --> (cons number ()))))
+(declare read-byte (cons (cons stream (cons in ())) (cons --> (cons number ()))))
 
-(declare read-file-as-bytelist
- (cons string (cons --> (cons (cons list (cons number ())) ()))))
+(declare read-file-as-bytelist (cons string (cons --> (cons (cons list (cons number ())) ()))))
 
-(declare read-file-as-string
- (cons string (cons --> (cons string ()))))
+(declare read-file-as-string (cons string (cons --> (cons string ()))))
 
-(declare read-file
- (cons string (cons --> (cons (cons list (cons unit ())) ()))))
+(declare read-file (cons string (cons --> (cons (cons list (cons unit ())) ()))))
 
-(declare read-from-string
- (cons string (cons --> (cons (cons list (cons unit ())) ()))))
+(declare read-from-string (cons string (cons --> (cons (cons list (cons unit ())) ()))))
 
-(declare remove
- (cons A
-  (cons -->
-   (cons
-    (cons (cons list (cons A ()))
-     (cons --> (cons (cons list (cons A ())) ())))
-    ()))))
+(declare remove (cons A (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons list (cons A ())) ()))) ()))))
 
-(declare reverse
- (cons (cons list (cons A ()))
-  (cons --> (cons (cons list (cons A ())) ()))))
+(declare reverse (cons (cons list (cons A ())) (cons --> (cons (cons list (cons A ())) ()))))
 
 (declare simple-error (cons string (cons --> (cons A ()))))
 
@@ -347,33 +224,29 @@ For an explication of this license see http://www.lambdassociates.org/News/june1
 
 (declare step (cons symbol (cons --> (cons boolean ()))))
 
-(declare stinput (cons A (cons --> (cons (cons stream (cons in ())) ()))))
+(declare stinput (cons --> (cons (cons stream (cons in ())) ())))
 
-(declare shen-stoutput
- (cons A (cons --> (cons (cons stream (cons out ())) ()))))
+(declare stoutput (cons --> (cons (cons stream (cons out ())) ())))
 
 (declare string? (cons A (cons --> (cons boolean ()))))
 
-(declare sum (cons (cons list (cons number ())) (cons --> (cons number ()))))
-
 (declare str (cons A (cons --> (cons string ()))))
 
 (declare string->n (cons string (cons --> (cons number ()))))
 
+(declare string->symbol (cons string (cons --> (cons symbol ()))))
+
+(declare shen.sum (cons (cons list (cons number ())) (cons --> (cons number ()))))
+
 (declare symbol? (cons A (cons --> (cons boolean ()))))
 
-(declare systemf
- (cons symbol (cons --> (cons (cons list (cons symbol ())) ()))))
+(declare systemf (cons symbol (cons --> (cons (cons list (cons symbol ())) ()))))
 
-(declare tail
- (cons (cons list (cons A ()))
-  (cons --> (cons (cons list (cons A ())) ()))))
+(declare tail (cons (cons list (cons A ())) (cons --> (cons (cons list (cons A ())) ()))))
 
 (declare tlstr (cons string (cons --> (cons string ()))))
 
-(declare tlv
- (cons (cons vector (cons A ()))
-  (cons --> (cons (cons vector (cons A ())) ()))))
+(declare tlv (cons (cons vector (cons A ())) (cons --> (cons (cons vector (cons A ())) ()))))
 
 (declare tc (cons symbol (cons --> (cons boolean ()))))
 
@@ -383,28 +256,17 @@ For an explication of this license see http://www.lambdassociates.org/News/june1
 
 (declare track (cons symbol (cons --> (cons symbol ()))))
 
-(declare trap-error
- (cons A
-  (cons -->
-   (cons
-    (cons (cons exception (cons --> (cons A ()))) (cons --> (cons A ())))
-    ()))))
+(declare trap-error (cons A (cons --> (cons (cons (cons exception (cons --> (cons A ()))) (cons --> (cons A ()))) ()))))
+
+(declare shen.truncate (cons string (cons --> (cons string ()))))
 
 (declare tuple? (cons A (cons --> (cons boolean ()))))
 
-(declare shen-undefmacro (cons symbol (cons --> (cons symbol ()))))
+(declare undefmacro (cons symbol (cons --> (cons symbol ()))))
 
-(declare union
- (cons (cons list (cons A ()))
-  (cons -->
-   (cons
-    (cons (cons list (cons A ()))
-     (cons --> (cons (cons list (cons A ())) ())))
-    ()))))
+(declare union (cons (cons list (cons A ())) (cons --> (cons (cons (cons list (cons A ())) (cons --> (cons (cons list (cons A ())) ()))) ()))))
 
-(declare unprofile
- (cons (cons A (cons --> (cons B ())))
-  (cons --> (cons (cons A (cons --> (cons B ()))) ()))))
+(declare unprofile (cons (cons A (cons --> (cons B ()))) (cons --> (cons (cons A (cons --> (cons B ()))) ()))))
 
 (declare untrack (cons symbol (cons --> (cons symbol ()))))
 
@@ -416,46 +278,29 @@ For an explication of this license see http://www.lambdassociates.org/News/june1
 
 (declare version (cons string (cons --> (cons string ()))))
 
-(declare write-to-file
- (cons string (cons --> (cons (cons A (cons --> (cons A ()))) ()))))
+(declare write-to-file (cons string (cons --> (cons (cons A (cons --> (cons A ()))) ()))))
 
 (declare y-or-n? (cons string (cons --> (cons boolean ()))))
 
-(declare >
- (cons number
-  (cons --> (cons (cons number (cons --> (cons boolean ()))) ()))))
+(declare > (cons number (cons --> (cons (cons number (cons --> (cons boolean ()))) ()))))
+
+(declare < (cons number (cons --> (cons (cons number (cons --> (cons boolean ()))) ()))))
+
+(declare >= (cons number (cons --> (cons (cons number (cons --> (cons boolean ()))) ()))))
 
-(declare <
- (cons number
-  (cons --> (cons (cons number (cons --> (cons boolean ()))) ()))))
+(declare <= (cons number (cons --> (cons (cons number (cons --> (cons boolean ()))) ()))))
 
-(declare >=
- (cons number
-  (cons --> (cons (cons number (cons --> (cons boolean ()))) ()))))
+(declare = (cons A (cons --> (cons (cons A (cons --> (cons boolean ()))) ()))))
 
-(declare <=
- (cons number
-  (cons --> (cons (cons number (cons --> (cons boolean ()))) ()))))
+(declare + (cons number (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
 
-(declare =
- (cons A (cons --> (cons (cons A (cons --> (cons boolean ()))) ()))))
+(declare / (cons number (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
 
-(declare +
- (cons number
-  (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
+(declare - (cons number (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
 
-(declare /
- (cons number
-  (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
+(declare * (cons number (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
 
-(declare -
- (cons number
-  (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
+(declare == (cons A (cons --> (cons (cons B (cons --> (cons boolean ()))) ()))))
 
-(declare *
- (cons number
-  (cons --> (cons (cons number (cons --> (cons number ()))) ()))))
 
-(declare ==
- (cons A (cons --> (cons (cons B (cons --> (cons boolean ()))) ()))))