#!/usr/bin/tclsh

if { $argc != 1 } {
	puts stderr "Usage: $argv0 <pattern>"
	exit 1
}
set pat [lindex $argv 0] 
set first [string range $pat 0 0]

if { $first == "_" } {
	set pat [string range $pat 1 end]
	regsub -all {_} $pat {[a-z]} pat
	for { set let 97 } { $let < 123 } { incr let } {
		set chr [format "%c" $let]
		if { ! [catch {exec look $chr | egrep ^$chr$pat$} out] } {
			puts "$out"
		}
	}
} else {
	regsub -all {_} $pat {[a-z]} pat
	puts [exec look $first | egrep ^$pat$]
}