#!/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
      `
      `
      `
      
      `             `      p      I9.0.00/32 j    `l   dj   xQj   pj    `l   <nj   0j                    z    |      l   Pl          X       X                                                            :       b   C   $       b   T          b   =           N   C   $       b   T          b   =           N   C   T       b   T          b   M   -       <       b   M           j       b   =          N   C   T       b   T          b   M   <              b   M                 b   =          N   C   $       b   T          b   =           N   C         U   E   b   S           b   T          b   =           b      F   U   U   E   b   S           b   M                 b      N   T          b   M   
              b   S           b   M   #              b   S           b   M          
      b   =          N   5   N   E   b   D                                                                                                    h                                                                 $             ,      b   C   d       E   S           b   T          b   M          1      b   <   L       b   =          b      N   C         b   >          b   ,   b   C   l       b   T          E   T          b   3   `b   =          b   <          b      b   =          N   C   T       b   T          b   T          b   3   b   =          b   =          N   E   b   S          b   T          E   T          b   3   b   =          b   <          b      b   =          b      b   7   N   C   \      U   T          E   E   b   S           b   M          1      b   M          7      b   M          1      b   M   >       N      b   M          1      b   M                b   M          1      E   M                b   S          b      b   M          1      b   S           b   A          b      b   =          F   5   N   C         U   T          b   M                E   E   b   M                 b   M   E             b   M   E             b   M   G       I      b   M   D             b   M                 b   M   D             b   M   F             b   M   >       b      b   M                 b   M   E             b   M   '             b   M                 b   A   
       b      b   =          F   5   N   C   4       b   T          b   S           b   =          N   C   <       b   T          b   M          1      b   =          N   C   L       b   T          b   M                b   >   =       b   =          N   C   <       b   T          b   M          1      b   =          N   C   4       b   T          b   S           b   =          N   C   $       b   C          E   b   G   D   N   E   b   D                               8                                                                                                                                       $              )               .       \             |        
            ! 	           " 	     l      $ 	           & 	           (            (      4      )            *            ,            /            2            2      $      4      4      4      |      5            5            5 
           6            6 
     \      7      |      7            7            7            4            C            :            :            :            H            H            H            W 	     ,	      X 	     t	      Y #     	      Y 	     	      Z 	     
      [ 	     @
      ]      T
      ^      main header write function repl tab upto many gftrace.icn s procedure _func(a[]); _func:=proc("proc",0);  proc:=_proc; return _func!a; end procedure _proc(a[]); static p; initial p:=_func("proc",0);  suspend p!a; end proc procedure  (a[]); static p; initial p:=_func(" ",0); suspend p!a; end divider date # ,   #	File:     ftrace.icn #	Subject:  Procedures for tracing calls to built-in functions #	Author:   Gregg M. Townsend #	Date:      #       These procedures, when linked with an Icon program, cause calls of built-in functions to be traced (along with calls of user procedures) when &trace is nonzero.  This is accomplished by interposing a level of Icon procedures between the user program and the built-in functions.    In the trace output, function arguments are shown as a list.  The very first function call produces two extra trace lines showing a call to "_func".  Calls to "proc" are reported as calls to "_proc".    If the user program overloads any built-in function, linking fails due to an "inconsistent redeclaration". #  Generated under:   