rich123

namespace eval gorilla { variable Dir [ pwd ] }
lappend auto_path [ pwd ]
package require pwsafe

interp alias {} mc {} puts

if { [ llength $argv ] != 2 } {
  puts "Usage: $argv0 input-file output-file"
  exit 1
}