Initial dir2c.tcl