#!/bin/sh
# \
    exec tclsh "$0" ${1+"$@"}

	foreach file "$argv" {
		catch {file copy -force $file [string tolower $file]}
	}