#!/usr/local/bin/tcl
#
exec xtree -iformat number < $argv
#
