#!/usr/local/bin/tclsh8.3

catch {source "[file dirname [info script]]/lib.tcl"}

set lFileList [::files::FindFile [lindex $argv 1]]
set lGrepList [::files::Grep [lindex $argv 0] $lFileList]
foreach lLine $lGrepList {
	puts $lLine
}
