#!/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      3x      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  2p                             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    .`    0H    2<    4    5     5x  ΰ  ɰ              Ӱ          ߰      Ȱ      Ͱ    Ұ  ְ                     
                     	         '      ,      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   0 B   @ B    B  ( * C  0  C  `  D   6 D   # 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 3 a  	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  * 0A  * A  * C  + C  +X  D  +` D  +t D  + +D  + 5D  + 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  18 z  1` -z  1h z  1l 
y  1 |  1 %}  1 }  1 }  1 }  2( ~  28   2p   2   2   2   2   2 
  3   38   3t   3x   3   3   3   3   3   3   4   4<   4T   4p   4   4   4   4 '  4   4   4   4   5,   5L   5T   5\   5d   5t   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] 