@_=@ARGV;
push@_,glob("$_/*")for@_;
@_=grep{-d}reverse@_;
$t=@_;rmdir$_&&$d++for@_;
print"D:$d F:",$t-$d,$/;