#!/bin/sh
IXBIN=/usr/local/bin/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]
      

       
  
  
  
  
  h  (  h  p  I9.0.00/32  Y%A    K     @L    DA    'A    DP     A        V@   t          
                     P      U      Y      ]      e      k      q      w      }         b   C   ,   E   T      T      b   =       b      N   C   ,   E   S      E   M            b      N   C   ,   E   S      E   M            b      N   C       E   S      K   b      N   C     U   E   S       T      b   =       b      N   C   S       b   ,   C      E   S      T      T      M         b   =      b   =      b      N   C   ,   T      E   M            b   =      N   C   @   E   S   	   T      E   M            b   =      b      N   E   E   T      S      b   &   S   	   b      :     C   \  E   S      T      T      M         b   =      b   =      b      N   C   ,   T      E   M            b   =      N   C   @   E   S      T      E   M            b   =      b      N   U   S      6   C   D   -   M      k   b      N   F   E   S      S      b      :   0  C      -   M      q   b      N   F   E   S      C   (   T   	   S      b   =      8   :       T   
   M   $      b   =      b      :     C      -   M      w   b      N   F   E   S      C   (   T      S      b   =      8   :   (   T   
   M         S       b   =      b      :      C      -   M      }   b      N   F   E   S      C   (   T   	   S      b   =      8   :   (   T   
   M         S       b   =      b      :   d   C   0   -   M         b      N   F   b   E   :   ,   F   T   
   M         S       b   =      :   (   T   
   M        S       b   =      b   7   N   :   N   C   $   T      M         b   =      N   C      T      b   =       N   C   ,   T      M      ,  S      b   =      N   C   ,   T      M      A  S      b   =      N   C   ,   T      M      P  S      b   =      N   C      T      b   =       N   C   $   T      M      `  b   =      N   C   ,   T      S      M      q  b   =      N   C   $   T      M      }  b   =      N   C      T      b   =       N   C      U   E   S      T   
   T      b   =      b      F   U   T      S      E   T      S      b   &   b   =      N   5   N   E   b   D      <                                       U   b   C     U   E   S       E   Q       b      b      F   U   U   S       6   C   H   -   M        b      N   F   T      M        b   =      :   t  C   H   -   M        b      N   F   T      M        b   =      :   $  C   H   -   M        b      N   F   T      M        b   =      :      C   H   -   M        b      N   F   T      M        b   =      :      F   U   E   E   T      S       b   &   b      N   T      M        S       M        Q      M        S       b   =      N   5   N   C      C      E   b   G   D   N   E   b   D      4   L                                   b   C   8   T      M   
     Q       M      
  b   =      N   C   $   T      M        b   =      N   C   ,   T      Q      M   	   )  b   =      N   C   $   T      M      3  b   =      N   C      U   Q       6   C   H   -   M      ;  b      N   F   T      M      =  b   =      :   T   C   H   -   M      W  b      N   F   T      M      Y  b   =      :      5   N   C   $   T      M   	   s  b   =      N   C   $   T      M      }  b   =      N   C      T      b   =       N   C      C      E   b   G   D   N   E   b   D                                                                                 !      &      *      /      4      <      A      F      L                        
    " 
   #  @  $ 
 l  &  x  &    '    (    (    (    )  T  *  `  *    +    +    - %   -     -    .  \  /  h  /    1    1 !   2    2 + H  3  T  2 ! |  4    4 (   5    4 !   6  L  6 +   7    6 !   8    8    9  $  <  0  '  d  A 	   B 	   C 	   D 	    E 	 @  F 	 l  G 	   H    I 	   J 	 $  N  0  N  d  O  l  O    Q    S    V    V  4	  X 
 X	  X  	  Y 
 	  Y  	  Z 
 	  Z  $
  [ 
 H
  [  |
  \  
  \  
  ]     a    c  P  e    g 	   h 	   i    j 	 P  l 
 t  l    m 
   m    o 	 (
  p 	 H
  q 	 l
  s  
  u  main procs gencode genproc table read tab find move integer stop real write key line sym new keyword value axiom gener angle length replace 4 5 -> 2 0 : 1 *** invalid generation specification *** invalid angle:  *** invalid length:  name *** invalid keyword:  *** invalid specification:  link turtle $define Generations  $define Angle  $define Length  procedure main() Generations end lindcomp.icn arg +       TRight(Angle)	# + -       TLeft(Angle)	# - [       TSave()		# [ ]       TRestore()	# ]        ( )	#  procedure  (gener)    if gener > 0 then { gener - 1       } F    else TDraw(Length)	# F f    else TSkip(Length)	# f    return 