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