;# your code goes
set p "../../../../ccore/test.cpp"
set q [join [split $p /]]
set d "\\../"
regsub -all $d $p "" p
puts $p
set dots "../../"
puts $dots
set p [join $dots $p]
puts $p
OyMgeW91ciBjb2RlIGdvZXMgCnNldCBwICIuLi8uLi8uLi8uLi9jY29yZS90ZXN0LmNwcCIKc2V0IHEgW2pvaW4gW3NwbGl0ICRwIC9dXQpzZXQgZCAiXFwuLi8iCnJlZ3N1YiAtYWxsICRkICRwICIiIHAKcHV0cyAkcApzZXQgZG90cyAiLi4vLi4vIgpwdXRzICRkb3RzCnNldCBwIFtqb2luICRkb3RzICRwXQpwdXRzICRw