#!/bin/sh
IXBIN=/usr/local/lib/icon/iconx                                               
IXLCL=`echo $0 | sed 's=[^/]*$=iconx='`

[ -n "$ICONX" ] && exec "$ICONX" $0 ${1+"$@"}
[ -x "$IXLCL" ] && exec "$IXLCL" $0 ${1+"$@"}
[ -x "$IXBIN" ] && exec "$IXBIN" $0 ${1+"$@"}
exec iconx $0 ${1+"$@"}

[executable Icon binary follows]
      

 S      7  7  7  8  9  ;  K  ;  ;  I9.0.00/32      i:Ŗ                                               <   <                           L     W     ]  C      T   
   =       N   C      C   p   E   E   Q       <      &   C      M      d  8   :      M      g  
   N   T   #   Q       =      :   d   U   C   ,   E   E   Q          M      j  
   N   5   E   N   T   $   Q       M      j  =      N   C   <  U   E   S      T   #   Q       =         N   C   C      U   C   h   E   T      C   0   E   S      M      j  
   N   >      :      T   %   S      =         N   5   E   N   T   &   M      l  T   '   S      =      =      N   C   \   U   E   S      M      j     N   T   (   M   	     T   '   S      =      =      N   C       T   )   M        =      N   U   E   S       T      T      =       =         F   U   C   D   T      E   T      E   S       A      =      A      =      N   T   )   M        =      N   5   N   :   N   E   D      D                      '                       C   ,   E   Q       E   Q       <      &      N   C   \  U   E   T      T      E   Q       A      =         N   C   D   U   E   T      Q          N   C      E   T      +   G   D   N   C   h   U   E   T      E   T      Q       A      =      T         N   C      E   T      +   G   D   N   C   T   E   C   8   E   E   E   T      Q       &      9       8   :      T      +   G   D   N   C     U   T      Q       =      N   C     U   E   T      T      E   E   Q       <      &   A      =         N   U   E   Q       <      &   6   C   p   -   M           N   F   C   @   E   C   $   E   Q       <      &   8   :      T      +   G   D   :   ,  C   d   -   M      g      N   F   C   4   T      E   Q       <      <       $   =      G   D   :     C      -   M           N   F   C   p   T      E   E   E   Q       <      &   A      T   	   E   Q       <      <       $   =      	   =      G   D   :     C   h   -   M           N   F   C   8   J   E   >   ;   E   <            T      =      G   D   :     C   `   -   M   	        N   F   C   0   J   E   >   ;   <          T      =      G   D   :   @  C   X   -   M            N   F   C   (   J   T   "   =       T      =      G   D   :      C   <   -   M           N   F   T   *   <       =      :      F   C      C   x   T      E   E   E   Q       <      &   A      T   	   E   Q       <      <       $   =      	   =      8   :      T      G   D   N   C      C      T      E   E   T      E   E   Q       <      &   A      =      A      T   	   E   Q       <      <       $   =      	   =      8   :      T      G   D   N   C   $   C      E   T      +   G   D   N   E   D      T   
                   ,                                 C   ,   E   S       E   Q       <      &      N   C      U   T   +   T      T   ,   S       =      =      N   C   (   T   (   M   
     S       =      N   T      E   Q       <      <       $   =      N   C   (  U   E   S      U   T   ,   S       =      6   C   t   -   M      C      N   F   C   @   T      E   E   Q       <      &   A      =      8   :      T      :     C   t   -   M      G      N   F   C   @   T      E   E   Q       <      &   A      =      8   :      T      :   P  C   p   -   M      K      N   F   C   <   T   
   E   Q       <      <       $   =      8   :      T      :     C   t   -   M      T      N   F   C   @   T      E   E   Q       <      &   A      =      8   :      T      :   \  C   t   -   M      Y      N   F   C   @   T      E   E   Q       <      &   A      =      8   :      T      :     C      -   M      ^      N   F   C   X   T      E   E   Q       <      &   E   Q       <      &   A      =      8   :      T      :   L  C   t   -   M      a      N   F   C   @   T      E   E   Q       <      &   A      =      8   :      T      :     C   t   -   M      '      N   F   C   @   T      E   E   Q       <      &   A      =      8   :      T      :   T  C   h   -   M            N   F   C   4   T      E   Q       <      &   =      8   :      T      :      C   h   -   M      l      N   F   C   4   T      E   Q       <      &   =      8   :      T      :   t   C   h   -   M      r      N   F   C   4   T      E   Q       <      &   =      8   :      T      :      5      N   C      U   T   +   T      T   ,   S       =      =      N   C   (   T   (   M   	     S       =      N   T      S      =      N   C      S      G   D   N   C   l   E   S      C   8   E   E   E   T      S       &      9      8   :      C      T      G   D      N   C     U   E   T   -   S      =      M        
   N   C   X  E   E   S      <      &   M        
   N   C   t   E   S      T      E   Q       <      <       $   E   S      <      &   E   S      <      &   =         N   C      U   T   +   T      T   ,   S       =      =      N   C   (   T   (   M   	     S       =      N   T      S      =      N   C      S      G   D   :   4   C   (   T      E   S       A      =      G   D   N   C      C      T      G   D   N   E   D      <                      2                  C       E   S       E   A          N   C      U   E   S      E   Q             F   U   C   H   T   $   S       T      E   S      A      =      =      8   :      D   N   5   N   C      C      S       G   D   N   E   D      $                     
   8   C   $   E   T      T   .   =          N   C   $   E   T      T   /   =          N   C       E   T      M            N   C       E   T      E   A          N   E   D      ,                       C        C   h   C   X   C   D   E   T      E   Q       <      &   =      <      &   8   :      T      G   D   N   E   D      ,   0                    G        C   p   C   `   C   L   E   T      E   Q       <      &   =      <      <       $   8   :      T      G   D   N   E   D      ,                       K        C      C   t   C   `   E   E   E   Q       <      &   A      T      E   Q       <      &   =      	   8   :      T      G   D   N   E   D      ,                       P        C      C   l   E   T      T      E   E   Q       <      &   A      =         F   E   Q       <      &   8   :      C      T      G   D   N   C   L   E   E   E   T      E   Q       <      &   &      T      =          N   C   8  C      E   T   -   E   Q       <      &   =      M         
   N   C   l   E   E   E   E   T      E   Q       <      &   &   9       E   E   Q       <      &   9          +   G   D   :   l   C   `   E   E   E   E   T      E   Q       <      &   &   9       E   Q       <      &      +   G   D   N   E   D      ,                       T        C      U   E   T   -   E   Q       <      &   =      M        
   N   C   \   C   H   E   E   E   Q       <      &   %   <          F   T      8   :      T      G   D   N   C      C      T      G   D   N   E   D      ,                       Y        C   P   C   @   T      E   T      E   Q       <      &   A      =      G   D   N   E   D      ,                       ^        C     U   E   E   T   -   E   Q       <      &   =      T   -   E   Q       <      &   =      
   M        
   N   C      C   p   E   E   <       E   E   Q       <      &   %      E   E   Q       <      &   %      F   T      8   :      T      G   D   N   C   t   C   d   C   P   E   E   Q       <      &   E   Q       <      &      F   T      8   :      T      G   D   N   E   D      ,   X                    a        C      U   E   T   -   E   Q       <      &   =      M         
   N   C   D   T      E   E   E   Q       <      &   9       A      =      G   D   N   C   L   C   <   T   (   T       T      Q       =      =      =      G   D   N   E   D      4                      g             C     U   E   S       E   Q             F   U   C      U   C   8   E   T   -   S       =      M           8   :       E   E   S       %   <         N   C   (   T   (   >      M        =      N   C      T      G   D   N   U   E   T      T      E   E   S       <      &   A      =         N   C   8   T      E   E   S       <      &   A      =      G   D   N   5   N   C      C      T      G   D   N   E   D      4   t!                   l             C   X   U   E   S       E   Q             F   U   T   0   T      S       =      N   5   N   C      C      T      G   D   N   E   D      4   4"                   r             C   X   U   E   S       E   Q             F   U   T   1   T      S       =      N   5   N   C      C      T      G   D   N   E   D      ,   "                    z        C   P   U   E   T   -   Q       =      M        
   N   C      Q       G   D   N   E   D      <   #                                     C       E   S      E   A          N   C   h   U   E   S       E   Q             F   U   T   $   S      T      S       =      =      N   5   N   C      C      S      G   D   N   E   D      ,   x$                 	           C   T   E   E   E   T      E   Q       <      &   &      T      T      =         N   C   X   E   E   E   T      E   Q       <      &   &   9      E   Q       <      &      N   C   ,   C      E   Q       <      &   G   D   N   E   D      t   %                              %     -     1     6     :          ?          F  C   $   E   S       T   .   =          N   C      U   E   S      E   Q            F   U   E   E   S       S      &   C   ,   E   E   T      S      &      8   :      T      T      =         N   5   N   C      E   S      <          N   C      U   E   E   T      E   Q         &   <      ?   T      C   <   E   Q       E   S      4   <            &   8   :      T      =      B      F   5   N   C   8   E   S      T      E   Q      A      =         N   C      U   E   S      E   T   2   S       =            F   U   E   E   T      E   S      <      &   &   E   S      <      &      N   5   N   C      C      S      G   D   N   E   D                                                                                ,   )                          H  ;   |   C   t   E   R       E   E   M       L  U   T   !   T   3   T      =      =      .   8      M      M        N   C     C   C   8  U   C       T      R       =      N   5   E   N   C   C   H   U   T      3   3   R       =      N   N   N   E   :      N   E   R       4   C   l   E   E   M       L  U   T   !   T   3   T      =      =      .   8      M      M     8   :      N   E   :            N   :   N   C   ,   U   T      R       =      H   F   5   N   E   R       C   l   E   E   M       L  U   T   !   T   3   T      =      =      .   8      M      M     8   :      D      N   :   N   E   D      ,   +                         S  C   t   C   d   Q       ,   <      T   4   T   5   =       =      T   6   E   <         =      =      7   G   D   N   E   D      D   ,                        U     X     S     [  C      E   S       <          N   C   (  Q      ,   U   E   S       <          F   C       T   6   <       =      N   5   E   N   C   C      C   H   T   7   Q       =      F   E   S       4   <            8   :   <   T   7   Q      =      F   E   S       4   <            N   T   8   <      =      N   :   7   N   C   ,   C      E   S       <          G   D   N   E   D                                          4   .                        S     _  ;   $   C      E   R      3      N   C   P  E   Q       M      M     ,   C   C   ,   T   4   T   9   R      =      =      N   C   8   U   T   6   <       =      N   N   N   E   :      N   U   <      ?   C   D   <      ?   T   4   T   5   R      =      =      B   8   :   4   C   (   T   (   >      M      i  =      N   D   B   H   F   5   N   :   7   N   E   D                                          <   0                       S          _  ;   $   C      E   R      3   x   N   C      E   Q       M      M     ,   C   ,   T   4   T   9   R      =      =      N   E   S       C   <   C      E   M      Q  (   N   5   E   N   Q       :      E   A          7   N   C      U   C       T   ,   S       =      N   5   E   N   U   T   $   S       T      T      T       Q       =      =      =      =      F   5   N   C      C      S       G   D   N   E   D      4   p2                             H  C   P   U   E   T   -   Q       =      M           N   C      Q       G   D   N   C   H   U   E   E   Q       %   <          N   C      M         G   D   N   C       E   S       M      Q     N   C   \   U   E   S       4   E   T      E   Q          =      M      M           F   5   N   C   8   E   E   S       E   <         &   M      O     N   C      C      S       G   D   N   E   D      ,   <4                         S  C      E   Q       L   ,   <      E   M      Q  (   T   4   T   5   =       =      E   M      O  (   T   6   <       =      =      7      N   C      C      Q       G   D   N   E   D      ,   ,5                         S  C   <   C   ,   T   :   Q       >      >   <   =      G   D   N   E   D      $   5                       C     T   (   M        M        M   (     M   (     M   (     M   "     M   &   (  M   *   O  M   "   z  M   "     M   $     M   "     M   (     M   (   1  M   (   Z  M         M        M   ,     M   ,     M   ,     M   "   ?  M   $   b  M   $     M   "   ?  M   $     M        M   /     M        M        M        M      ;  M   !   [  M   &   }  M   "     M        M   9     M   <     M   9   >  M   ;   x  =   '   N   C      C      E   G   D   N   E   D         4                         J     L            J     L          7                                           
    h        `            p            l    ,    T    @!     "    "    L#    L$    p%    (    +    d,    `.    H0    <2    4     5    x5                                                                  
                     	         '      ,      2   
   8      C      G      K      P      T      Y      ^      a      g      l      r      z         	                                                                                                                                      
                    "     '     ,     0     4     8     <     A     F                           N  <   <  L   >     ?     ?     ? %    @    @  4  @ " h  A  p  A    B $   B 0   B @   B  (  C * 0  C  `  D    D 6   D #   E 
   F !   F    F  ,  G  4  G  <  G  D  G  d  H    K    O    Q 
   Q  0  R  8  R  @  R 	 h  S    S    S    T 
   T    T    T (   T ! 4  U  8  U  <  U  X  U  \  U    W    X    X    X    X    Y    Z  P  Z  h  Z  l  Z    [    [ #   [    [     \  8  \ ! <  \  h  \ 1 l  \ - t  \ % x  \    \    ]    ]     ] *   ] '   ]    ]    ^  4  ^   D  ^ ' P  ^  X  ^    _    _ $   _    _    `    `  D	  a # H	  a ! t	  a 3 x	  a / 	  a ' 	  a   	  a  	  c  	  c  	  c   
  c  ,
  c . 0
  c * 8
  c " <
  c  X
  c  
  e  
  e  
  f  
  j    l    l  L  m  T  m 
   n    o    o    q    r  H  r  L  r  T  r    s    s    s    s  
  t  D
  t  H
  t  
  u  
  u  
  u  
  u     v  4  v  8  v  @  v  |  w    w    w    w    w    x  D  x  H  x  P  x    y    y    y    y    z  8  z  <  z  x  {    {    {    |    |    |  D  q 
 x  ~ %   ~             
 ,    0    4    X    `               
         ,   % D   , H    P       %                
      (    0   
 T    d                        ,    4    <   
 P   " x                   
          (   
 H   
 P   
 \                             0    h    l                            8    <    D    \    l                            (   ! d    h   
 l    x           
                     4   " 8   % @    D    H                   "                     (   
 ,    @    t    x                        D    H    P   
 X    h           
                      L    P    T    p    t    x           
             (    X       
                             (    0    8    @    P                             $     <     P     l    
                                     !   
 ,!    <!    t!    !    !   
 !   
 !    !    4"   X"   \"  
 "  
 "  	 "  
 "   #    #   8#   H#   #   #   #   #   #   $   $  
 8$   H$   x$  # $  $ $  $
 $  $ $  $ $  $ %  % %  %	 %  % (%  %  ,%  % X%  & \%  & l%  ' %  +  &  - &  -	 4&  . 8&  . \&  / &  / &  / &  /& &  / &  0 '  1 '  1 '  1" P'  1, X'  1* p'  1" |'  1 '  2 '  2 '  2 '  3  (  3 (  3 4(  4 8(  4 P(  4 T(  4 |(  5 (  6 )  : X)  <$ `)  < t)  < )  </ )  < )  ? *  @ |*  A% *  A  *  A *  A0 *  A *  C +  C X+  D  `+  D t+  D +  D+ +  D5 +  D +  F +  K +  L ,  L ,  L 8,  L! <,  L  D,  L L,  L P,  L `,  M ,  S ,  U ,  V ,  V -  V" X-  W |-  W -  X -  X -  Y -  V  .  [ $.  [ 4.  \ .  e .  g .  h .  h
 /  i /  i @/  j p/  k' /  k /  k /  k /  l /  l /  m /  k 0  h
 0  p 0  u 0  x 0  y 0  y
 0  y  1  y 81  z `1  z- h1  z l1  y
 1  | 1  }% 1  } 1  } 1  } (2  ~ 82   p2   2   2   2   2   2  
 3   83   t3   x3   3   3   3   3   3   3   4   <4   T4   p4   4   4   4   4  ' 4   4   4   4   ,5   L5   T5   \5   d5   t5   5   7  	 7   7   main prop words T NIL infile trace_set EVAL apply evlis initialize CAR CDR CONS SET ATOM NULL EQ PRINT COND TRACE UNTRACE glist DEFINE define_fn lambda getbs checkbal more balstr bstol ltos strip Map HELP pop put open stop image write writes exit member string type table set insert delete sort read tab bal pos any move many map v f lisp.icn sexpr source -C /C - wtLisp can't open  Reading:  >  l fn arglist arg QUOTE SETQ ITRACEON ITRACEOFF EXIT value fcn Arguments of  value of  list LAMBDA pair COND: ill-formed pair list fn_def fn_list actuals formals def save act form result i tmp    ) ( s c1 c2 cnt blanks  	 ill-formed expression 
 Syntax:
   (quote (a b c))           ==> (A B C)
   (setq a (quote (a b c)))  ==> (A B C)
   (setq b (quote (x y z)))  ==> (X Y Z)
   (car a)                   ==> A
   (cdr a)                   ==> (B C)
   (cons (quote d) a)        ==> (D A B C)
   (eq (car a) (car a))      ==> T
   (atom (quote ()))         ==> T
   (atom a)                  ==> NIL
   (null (car (car a)))      ==> T
   (eval (quote a))          ==> (A B C)
   (print a)                 ==> (A B C)
                                 (A B C)
 Define functions cadr and cddr:
   (define (quote (
           (cadr (lambda (l) (car (cdr l))))
           (cddr (lambda (l) (cdr (cdr l))))
           )))               ==> (CADR CDDR)
   (cadr a)                  ==> B
   (cddr a)                  ==> (C)
   (trace (quote (cadr)))    ==> NIL
   (untrace (quote (cadr)))  ==> NIL
 Is an atom in a list? Uses cond and recursion:
     (has (lambda (atm lis)
       (cond ((null lis) nil)
         ((eq atm (car lis)) t)
         (t (has atm (cdr lis))))
   )) )))                    ==> (HAS)
   (has (quote y) b)         ==> T
   (itraceon)                ==> T [turn on icon tracing]
   (itraceoff)               ==> NIL [turn off icon tracing]
   (help)                    ==> NIL [print help message]
   (exit)                    ==> [exit gracefully from icon] 