#!/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]
      

               Z      `[      h[      [      8_      b      H      c      (c      I9.0.00/32                      i:Ŗ                                                                                                   x       x                                                           L             W             ]      b   C   $       b   T   
       b   =           N   C   l      b   C          E   E   b   Q           b   <          &   C   (       b   M          d      8   :          b   M          g      
   N   b   T   #       b   Q           b   =          b   :          U   C   <       E   E   b   Q              M          j      
   N   5   E   N   T   $       b   Q           b   M          j      b   =          N   C         U   E   b   S          b   T   #       b   Q           b   =             N   b   C   b   C   ,      U   C          E   T          b   C   P       E   S          b   M          j      
   N   b   >          b   :   0       b   T   %       b   S          b   =             N   5   E   N   T   &       b   M          l      b   T   '       b   S          b   =          b   =          N   C          U   E   b   S          b   M          j         N   b   T   (       b   M   	             b   T   '       b   S          b   =          b   =          N   C   <       b   T   )       b   M                b   =          N   U   E   S           b   T          b   T          b   =           b   =             F   U   C   t       b   T          E   T          E   S           b   A          b   =          b   A          b   =          N   T   )       b   M                b   =          N   5   N   :   @N   E   D                                                                '                                                           b   C   <       E   Q           E   Q           b   <          &      N   C         U   E   b   T          b   T          E   Q           b   A          b   =             N   b   C   `       U   E   b   T          b   Q              N   b   C          E   T          +   G   D   N   b   C          U   E   b   T          E   T          b   Q           b   A          b   =          b   T             N   b   C          E   T          +   G   D   N   b   C   x       E   C   P       E   E   E   T          b   Q           &      b   9           8   :          b   T          +   G   D   N   b   C         U   T          b   Q           b   =          N   C   D      U   E   b   T          b   T          E   E   b   Q           b   <          &   A          b   =             N   U   E   b   Q           b   <          &   6   b   C          -   M                   N   F   C   `       E   C   8       E   Q           b   <          &   8   b   :          b   T          +   G   D   :         b   C          -   M          g          N   F   C   T       b   T          E   Q           b   <          b   <           $   =          G   D   b   :   @      b   C          -   M                   N   F   C          b   T          E   E   E   Q           b   <          &   A          b   T   	       E   Q           b   <          b   <           $   =          	   =          G   D   b   :   @      b   C          -   M                   N   F   C   T       J   E   b   >   ;       E   <                b   T          b   =          G   D   b   :         b   C          -   M   	                N   F   C   L       J   E   b   >   ;       b   <              T          b   =          G   D   b   :         b   C          -   M                    N   F   C   D       J   T   "       b   =           b   T          b   =          G   D   b   :   `      b   C   `       -   M                   N   F   T   *       b   <           b   =          b   :          F   C          b   C          b   T          E   E   E   Q           b   <          &   A          b   T   	       E   Q           b   <          b   <           $   =          	   =          8   :          b   T          G   D   N   C         b   C          b   T          E   E   b   T          E   E   b   Q           b   <          &   A          b   =          b   A          b   T   	       E   Q           b   <          b   <           $   =          	   =          8   :          b   T          G   D   N   C   0       b   C          E   T          +   G   D   N   E   D                                                            ,                                                                                     b   C   <       E   S           E   Q           b   <          &      N   C         U   T   +       b   T          b   T   ,       b   S           b   =          b   =          N   C   L       b   T   (       b   M   
             b   S           b   =          N   T          E   Q           b   <          b   <           $   =          N   C   	      U   E   b   S          U   T   ,       b   S           b   =          6   C          -   M          C          N   F   C   h       b   T          E   E   b   Q           b   <          &   A          b   =          8   :          b   T          b   :         b   C          -   M          G          N   F   C   h       b   T          E   E   b   Q           b   <          &   A          b   =          8   :          b   T          b   :         b   C          -   M          K          N   F   C   `       b   T   
       E   Q           b   <          b   <           $   =          8   :          b   T          b   :   $      b   C          -   M          T          N   F   C   h       b   T          E   E   b   Q           b   <          &   A          b   =          8   :          b   T          b   :   \      b   C          -   M          Y          N   F   C   h       b   T          E   E   b   Q           b   <          &   A          b   =          8   :          b   T          b   :         b   C          -   M          ^          N   F   C          b   T          E   E   b   Q           b   <          &   E   b   Q           b   <          &   A          b   =          8   :          b   T          b   :         b   C          -   M          a          N   F   C   h       b   T          E   E   b   Q           b   <          &   A          b   =          8   :          b   T          b   :         b   C          -   M          '          N   F   C   h       b   T          E   E   b   Q           b   <          &   A          b   =          8   :          b   T          b   :         b   C          -   M                    N   F   C   P       b   T          E   Q           b   <          &   =          8   :          b   T          b   :   d      b   C          -   M          l          N   F   C   P       b   T          E   Q           b   <          &   =          8   :          b   T          b   :          b   C          -   M          r          N   F   C   P       b   T          E   Q           b   <          &   =          8   :          b   T          b   :          5      N   C          U   T   +       b   T          b   T   ,       b   S           b   =          b   =          N   C   L       b   T   (       b   M   	             b   S           b   =          N   T          b   S          b   =          N   C          b   S          G   D   N   C          E   S          b   C   P       E   E   E   T          b   S           &      b   9          8   :   (       b   C          b   T          G   D      N   b   C         U   E   b   T   -       b   S          b   =          b   M                
   N   b   C   @      E   E   b   S          b   <          &   M                
   N   b   C          E   S          b   T          E   Q           b   <          b   <           $   E   b   S          b   <          &   E   b   S          b   <          &   =             N   b   C          U   T   +       b   T          b   T   ,       b   S           b   =          b   =          N   C   L       b   T   (       b   M   	             b   S           b   =          N   T          b   S          b   =          N   C          b   S          G   D   b   :   X       b   C   D       b   T          E   S           b   A          b   =          G   D   N   C   ,       b   C          b   T          G   D   N   E   D              x       h!                                           2                                              b   C   (       E   S           E   A              N   b   C          U   E   b   S          E   Q                 F   U   b   C          b   T   $       b   S           b   T          E   S          b   A          b   =          b   =          8   :          D   N   5   N   b   C   ,       b   C          b   S           G   D   N   E   D              H       #                                      
       8       b   C   8       E   T          b   T   .       b   =              N   b   C   8       E   T          b   T   /       b   =              N   b   C   0       E   T          b   M                    N   b   C   (       E   T          E   A              N   E   D          X       $                                            C                    b   C          b   C          b   C   h       E   T          E   Q           b   <          &   =          b   <          &   8   b   :          b   T          G   D   N   E   D              X       %                                            G                    b   C          b   C          b   C   x       E   T          E   Q           b   <          &   =          b   <          b   <           $   8   b   :          b   T          G   D   N   E   D              X       &                                            K                    b   C          b   C          b   C          E   E   E   Q           b   <          &   A          b   T          E   Q           b   <          &   =          	   8   b   :          b   T          G   D   N   E   D              X        (                                            P                    b   C          b   C          E   T          b   T          E   E   b   Q           b   <          &   A          b   =             F   E   Q           b   <          &   8   b   :   (       b   C          b   T          G   D   N   C   h       E   E   E   T          E   Q           b   <          &   &      T          b   =              N   b   C         b   C          E   T   -       E   Q           b   <          &   =          b   M                 
   N   b   C          E   E   E   E   b   T          E   Q           b   <          &   &   b   9           E   E   b   Q           b   <          &   9              +   G   D   b   :          b   C          E   E   E   E   b   T          E   Q           b   <          &   &   b   9           E   Q           b   <          &      +   G   D   N   E   D          X       +                                            T                    b   C         U   E   b   T   -       E   Q           b   <          &   =          b   M                
   N   b   C          b   C   h       E   E   E   Q           b   <          &   %   b   <              F   b   T          8   :          b   T          G   D   N   C   ,       b   C          b   T          G   D   N   E   D              X       `-                                            Y                    b   C   |       b   C   d       b   T          E   T          E   Q           b   <          &   A          b   =          G   D   N   E   D              X       P.                                            ^                    b   C         U   E   E   T   -       E   Q           b   <          &   =          b   T   -       E   Q           b   <          &   =          
   M                
   N   b   C          b   C          E   E   b   <           E   E   b   Q           b   <          &   %      E   E   Q           b   <          &   %      F   b   T          8   :          b   T          G   D   N   C          b   C          b   C   x       E   E   b   Q           b   <          &   E   b   Q           b   <          &      F   T          8   :          b   T          G   D   N   E   D              X       1                                            a                    b   C          U   E   b   T   -       E   Q           b   <          &   =          b   M                 
   N   b   C   l       b   T          E   E   E   Q           b   <          &   9           b   A          b   =          G   D   N   C          b   C   t       b   T   (       b   T           b   T          b   Q           b   =          b   =          b   =          G   D   N   E   D              h       3                                           g                                 b   C   \      U   E   b   S           E   Q                 F   U   b   C   $      U   C   `       E   T   -       b   S           b   =          b   M                   8   b   :   ,       E   E   b   S           %   <             N   b   C   L       b   T   (       b   >          b   M                b   =          N   C          b   T          G   D   N   U   E   T          b   T          E   E   b   S           b   <          &   A          b   =             N   b   C   \       b   T          E   E   b   S           b   <          &   A          b   =          G   D   N   5   N   C   ,       b   C          b   T          G   D   N   E   D              h       (6                                           l                                 b   C          U   E   b   S           E   Q                 F   U   b   T   0       b   T          b   S           b   =          N   5   N   C   ,       b   C          b   T          G   D   N   E   D              h       h7                                           r                                 b   C          U   E   b   S           E   Q                 F   U   b   T   1       b   T          b   S           b   =          N   5   N   C   ,       b   C          b   T          G   D   N   E   D              X       8                                            z                    b   C          U   E   b   T   -       b   Q           b   =          b   M                
   N   b   C          b   Q           G   D   N   E   D              x       9                                                                                         b   C   (       E   S          E   A              N   b   C          U   E   b   S           E   Q                 F   U   b   T   $       b   S          b   T          b   S           b   =          b   =          N   5   N   C   ,       b   C          b   S          G   D   N   E   D              X       8;                                     	                           b   C   x       E   E   E   T          E   Q           b   <          &   &      T          b   T          b   =             N   b   C   |       E   E   E   T          E   Q           b   <          &   &   b   9          E   Q           b   <          &      N   C   @       b   C   (       E   Q           b   <          &   G   D   N   E   D                 =                                                                      %             -             1             6             :                          ?                          F      b   C   8       E   S           b   T   .       b   =              N   b   C          U   E   b   S          E   Q                F   U   E   E   b   S           b   S          &   C   @       E   E   b   T          b   S          &      8   :   0       b   T          b   T          b   =             N   5   N   b   C   (       E   S          b   <              N   b   C          U   E   E   T          E   Q             &   b   <          ?   T          b   C   P       E   Q           E   S          4   <                &   8   b   :          b   T          b   =          B      F   5   N   C   X       E   S          b   T          E   Q          b   A          b   =             N   b   C          U   E   b   S          E   T   2       b   S           b   =                F   U   E   E   b   T          E   S          b   <          &   &   E   S          b   <          &      N   5   N   C   ,       b   C          b   S          G   D   N   E   D                                                                                                        X       8B                                                          H      b   ;          b   C          E   R           E   E   b   M           L      U   T   !       b   T   3       b   T          b   =          b   =          b   .   8      b   M          M            N   C   T      b   C   b   C         U   C   8       b   T          b   R           b   =          N   5   E   N   b   C   b   C   t       U   T          b   3   b   3   b   R           b   =          N   N   N   E   b   :         N   E   b   R           4   C          E   E   b   M           L      U   T   !       b   T   3       b   T          b   =          b   =          b   .   8      b   M          M         8   b   :          N   E   b   :                N   :   N   C   @       U   T          b   R           b   =          H   F   5   N   E   R           b   C          E   E   b   M           L      U   T   !       b   T   3       b   T          b   =          b   =          b   .   8      b   M          M         8   b   :          D      N   :   N   E   D              X       F                                                         S      b   C          b   C          b   Q           ,   <          b   T   4       b   T   5       b   =           b   =          b   T   6       E   <             =          b   =          7   G   D   N   E   D                 8H                                                        U             X             S             [      b   C   (       E   S           b   <              N   b   C         b   Q          ,   U   E   S           b   <              F   b   C   8       b   T   6       b   <           b   =          N   5   E   N   b   C   tb   C          b   C   p       b   T   7       b   Q           b   =          F   E   b   S           4   <                8   :   `       b   T   7       b   Q          b   =          F   E   b   S           4   <                N   T   8       b   <          b   =          N   :   D7   N   b   C   @       b   C   (       E   S           b   <              G   D   N   E   D                                                      h       HK                                                        S             _      b   ;   8       b   C   (       E   R          b   3   (   N   b   C   (      E   Q           b   M          M         ,   b   C   b   C   T       b   T   4       b   T   9       b   R          b   =          b   =          N   C   T       U   T   6       b   <           b   =          N   N   N   E   b   :          N   U   b   <          ?   C   x       b   <          ?   T   4       b   T   5       b   R          b   =          b   =          B   8   b   :   `       b   C   L       b   T   (       b   >          b   M          i      b   =          N   D   B   H   F   5   N   :   7   N   E   D                                                      x       xN                                                       S                          _      b   ;   8       b   C   (       E   R          b   3      N   b   C   ,      E   Q           b   M          M         ,   b   C   T       b   T   4       b   T   9       b   R          b   =          b   =          N   E   b   S           b   C   X       b   C   $       E   M          Q      (   N   5   E   N   Q           b   :          E   A              7   N   C          U   C   8       b   T   ,       b   S           b   =          N   5   E   N   U   T   $       b   S           b   T          b   T          b   T           b   Q           b   =          b   =          b   =          b   =          F   5   N   C   ,       b   C          b   S           G   D   N   E   D              h       Q                                                                     H      b   C          U   E   b   T   -       b   Q           b   =          b   M                   N   b   C          b   Q           G   D   N   C   d       U   E   E   Q           %   <              N   b   C          b   M                 G   D   N   C   0       E   S           b   M          Q         N   b   C          U   E   b   S           4   E   b   T          E   Q              =          b   M          M               F   5   N   b   C   P       E   E   b   S           E   <             &   b   M          O         N   b   C   ,       b   C          b   S           G   D   N   E   D              X       T                                                         S      b   C          E   Q           L   ,   b   <          E   M          Q      (   T   4       b   T   5       b   =           b   =          E   M          O      (   T   6       b   <           b   =          b   =          7      N   C   ,       b   C          b   Q           G   D   N   E   D              X       V                                                         S      b   C   l       b   C   T       b   T   :       b   Q           b   >          b   >   <       b   =          G   D   N   E   D              H       V                                                   b   C         b   T   (       b   M                b   M                b   M   (             b   M   (             b   M   (             b   M   "             b   M   &       (      b   M   *       O      b   M   "       z      b   M   "             b   M   $             b   M   "             b   M   (             b   M   (       1      b   M   (       Z      b   M                 b   M                b   M   ,             b   M   ,             b   M   ,             b   M   "       ?      b   M   $       b      b   M   $             b   M   "       ?      b   M   $             b   M                b   M   /             b   M                b   M                b   M                b   M          ;      b   M   !       [      b   M   &       }      b   M   "             b   M                b   M   9             b   M   <             b   M   9       >      b   M   ;       x      b   =   '       N   C           b   C          E   G   D   N   E   D                 h                                                         J             L                    J             L                          Z                                                                                                                             "            ($            @%            h&            '            P+            -            -            0            2            5             7            @8            89            :            <            A            F            G            J             N            HQ            (T            U            V                                                                                                                                                                                          
                                                 	                     '              ,              2       
       8              C              G              K              P              T              Y              ^              a              g              l              r              z                     	                                                                                                                                                                                                                                                                                                                          
                                                    "             '             ,             0             4             8             <             A             F                                                           N      x       <             >             ?      @      ?      h      ? %           @            @            @ "     h      A      x      A            B $            B 0     @      B @     P      B            C *           C            D      X      D 6     h      D #           E 
           F !           F            F      `      G      p      G            G            G            H            K            O            Q 
           Q            R      (      R      8      R 	     x      S            S            S            T 
           T      (      T      P      T (     T      T !           U            U            U            U            U       	      W      	      X      	      X      	      X      	      X      	      Y      
      Z      X
      Z      
      Z      
      Z      
      [            [ #           [      (      [      h      \            \ !           \            \ 1           \ -           \ %           \      (      \      h      ]            ]             ] *           ] '           ]            ]      
      ^      0
      ^       P
      ^ '     `
      ^      p
      ^      
      _      
      _ $     
      _            _      H      `      p      `            a #           a !     8      a 3     <      a /     H      a '     L      a       x      a            c            c             c            c      `      c .     d      c *     p      c "     t      c            c            e            e            f            j            l            l      0      m      @      m 
           n            o            o      @      q      x      r            r            r            r      @      s            s            s            s            t      `      t      d      t            u            u            u      (      u            v            v            v            v      X      w            w            w            w            w      H      x            x            x            x            y      `      y      d      y      p      y            z             z      $      z            {            {            {      8      |            |            |            q 
           ~ %     (      ~                                     
     @            D            H                                                            8       
     P                               %            ,                             p       %                                          8        
                                       
                               h!            !            !            !            !            8"            H"            X"       
     x"       "     "            "            #            H#            X#       
     #            #            #       
     $       
     $       
     $$            $            $            $             %            (%            8%            %            %            %            (&            P&            `&            &            '            '            X'            \'            h'            '            '             (            h(            l(            x(            (            (            (       !     8)            <)       
     @)            P)            `)            )       
     )            )            8*            <*            @*            x*       "     |*       %     *            *            *            *            *             +            0+       "     4+            8+            <+            L+            +            +       
     +            ,            h,            l,            ,            ,            ,             -            `-            -            -            -       
     -            -            P.            .       
     .            .            .            .             /             h/            l/            p/            /            /            /            /            80       
     `0            d0            0            0            1            P1       
     T1            x1            1            1            1            1            1            `2            p2            2            2            2            3            H3            L3            3            3            3             4            (4            P4            4       
     4            4            4            4            H5            L5            X5            h5       
     5            5            (6            `6            d6       
     6       
     6            6            h7           7           7      
     7      
     (8      	     88      
     8           8           8            9           09           9           9           9            :           $:           p:           :      
     :           :           8;      #     ;      $     ;      $
     ;      $     ;      $     ;      $     <      %     <      %	     <      %     @<      %      D<      %     <      &     <      &     <      '     =      +     =      -     =      -	     >      .     >      .     @>      /     x>      /     |>      /     >      /&     >      /      ?      0     @?      1     D?      1     X?      1"     ?      1,     ?      1*     ?      1"     ?      1     8@      2     H@      2     X@      2     @      3     @      3     @      3      A      4     A      4     (A      4     ,A      4     hA      5     xA      6     8B      :     B      <$     B      <     B      <     C      </     C      <     pC      ?     C      @     D      A%     D      A      D      A     D      A0     E      A     `E      C     pE      C     E      D       F      D     $F      D     @F      D+     XF      D5     \F      D     xF      F     F      K     G      L     8G      L     HG      L     xG      L!     |G      L      G      L     G      L     G      L     G      M     8H      S     hH      U     H      V     H      V     H      V"     `I      W     I      W     I      X     J      X     0J      Y     PJ      V     J      [     J      [     J      \     HK      e     K      g     K      h     K      h
      L      i     0L      i     pL      j     L      k'     L      k     M      k     M      k     `M      l     M      l     M      m     M      k     M      h
     M      p     xN      u     N      x     N      y     N      y
     @O      y     PO      y     O      z     O      z-     O      z     O      y
     8P      |     P      }%     P      }     P      }     P      }     0Q      ~     @Q           Q           Q           R           8R           hR           xR      
     R           R           @S           DS           hS           lS           S           S           S           T            T           T           T           T           T            U           (U           HU      '     XU           hU           U           U           V           PV           `V           pV           V           V           V           Z      	     Z           Z           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] 