PowerShell - Profile working folder

AtCLI.ps1

$FolderProfile = ([io.directoryinfo]((resolve-path '.').ProviderPath)).GetFileSystemInfos('*',[IO.SearchOption]::AllDirectories) | &{
  begin{$r=@{}}
  process{
    $n = resolve-path (split-path $_.FullName) -Relative;
    $r.$n+=$_.Length
  }
  end{$r}
};

$Data = $FolderProfile.Keys | sort | &{
  begin{'Path,Bytes,Cumulative,Parent'}
  process{"`"$_`",$($FolderProfile.$_),,`"$(split-path $_)`""}
} | ConvertFrom-Csv `
  | Add-Member -NotePropertyName Children -NotePropertyValue @() -PassThru
$root = $data | ?{$_.Parent -eq '..'}
$index = $data | &{begin{$r=@{'.'=$root}}process{$r.($_.Path)=$_}end{$r}}
$data | %{try{$index.($_.Parent).Children += $_}catch{}}
function Accumulate{
   param([parameter(Mandatory=$true,ValueFromPipeline=$true)]$obj)
   $obj.Cumulative = ($obj.Bytes = [uint64]$obj.Bytes)
   foreach($c in $obj.Children){
      Accumulate $c
      $obj.Cumulative += [uint64]$c.Cumulative
   }
}
$root | Accumulate
$data | Format-Table