print "traversedir $givendir\n";