#!/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      
`      
`      
`      
      `             `      pI9.0.00/32 
$    
P     q      1                      !5z<        5z=       $                   !W              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:   