#!/usr/bin/tclsh

set files [lindex $argv 0]

for {set i 0} {$i < $files} {incr i} {
  exec rm -f junk_file$i
}