From: "gustaf neumann"
# Tcl scripts
O search/l/w #!\ /usr/bin/tcl Tcl script text executable
!:mime text/x-tcl
O search/l/w #!\ /usr/local/bin/tcl Tcl script text executable !:mime
text/x-tcl
O search/1 #!/usr/bin/env\ tcl Tcl script text executable
!:mime text/x-tcl
O search/1 #!\ /usr/bin/env\ tcl Tcl script text executable
!:mime text/x-tcl
O search/l/w #!\ /usr/bin/wish Tcl/Tk script text executable !:mime
text/x-tcl
O search/i/w #!\ /usr/local/bin/wish Tcl/Tk script text executable !:mime
text/x-tcl
O search/1 #!/usr/bin/env\ wish Tcl/Tk script text executable !:mime
text/x-tcl
O search/1 #!\ /usr/bin/env\ wish Tcl/Tk script text executable !:mime
text/x-tcl
EFTA00502278