#!/usr/bin/env tclsh
rename unknown old_unknown
proc unknown { cmd args } {
    set ch [string toupper [string index $cmd 0]]
    if {[string first $ch XYZABCGMF]} {
	return [puts "$cmd $args"]
    }
    uplevel old_unknown [list $cmd] $args
}

source [lindex $argv 0]