lib/DrAy.ps1

function Get-Wdt($drAy) {
    [int[]]$o= @()
    $ub = -1
    foreach($dr in $drAy) {
        $ub1 = Ub $dr
        if($ub1 -gt $ub){$ub = $ub1; $o=ReSz(Ref $o)$ub}
        $i = 0;
        foreach($v in $dr) {
            $o[$i]= Max($o[$i])(Len([string]$v))
            $i++}
    }
    $o
}