$filespec[./243/a//b///c////d.txt]
$s[dummy]
^s.save[$filespec]
^if(-f $filespec){file exist
}
^if(-f "./243/a/b/c/d.txt"){file exist
}
^if(-d ^file:dirname[$filespec]){dir exist
}
^if(-d "./243/a/b/c"){dir exist
}
^file:delete[$filespec]
^if(!(-d "./243")){dir doesn't exist (it's OK)
}