#!/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]
      

                 X        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                    d    	    Ȱ      Ұ  ް    ư                                         !      &      *      /      4      <      A      F      L       P               
      
 "     #   
 $  <  &  D  &  \  '    (    (    (    )    *    *    +  $  +  ` % -  h   -  p  -    .    /    /    1   ! 1  <  2  l + 2    3   ! 2    4   ( 4     5  ( ! 4  L  6  | + 6    7   ! 6    8    8    9  <  <  D  '  t 	 A   	 B   	 C   	 D    	 E  < 	 F  d 	 G    H   	 I   	 J    N    N  D  O  H  O  `  Q    S    V    V   
 X    X  D 
 Y  d  Y   
 Z    Z   
 [    [  	$  \  	(  \  	t  ]  	  a  	  c  	  e  
 	 g  
< 	 h  
l  i  
 	 j  
 
 l  
  l   
 m  8  m  l 	 o   	 p   	 q    s    umain 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 