#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

set files [exec ls]
set flist [split $files "\n"]
file mkdir "~/.zipper"
foreach file $flist {

	if [string match *rc $file] {
		if ![file exists ~/.zipper/$file] {
			file copy -force "$file" ~/.zipper/
			puts "copying file $file"
		}
	}

}

if ![file exists ~/.zipper/startup.zipper] {
	file copy -force startup.zipper ~/.zipper/
}
