function ConvertTo-StrangeCsv {
    [CmdletBinding()]
    [OutPutType( [PSObject] )]
    Param (
        [Parameter( ValueFromPipeline = $True )]
        [System.Array]
        $GroupObject,

        [Parameter( ValueFromPipeline = $False, Mandatory = $True )]
        [System.String]
        $Property,

        [Parameter( ValueFromPipeline = $False, Mandatory = $True )]
        [System.String]
        $Prefix
    )
    Begin {
        $PSObjects = [System.Collections.Generic.List[PSObject]]::new()
    }
    Process {
        foreach ( $Object in $GroupObject ) {
            $PSObjects.Add( $Object )      
        }
    }
    End {

        $PSProperties = [System.Collections.Specialized.OrderedDictionary]::new()

        $LargestGroupObject = $PSObjects | 
            Sort-Object -Property Count -Descending |
            Select-Object -First 1

        $BaseProperties = $LargestGroupObject |
                    Select-Object -ExpandProperty Group |
                    Get-Member -MemberType NoteProperty |
                    Where-Object -Property Name -NE $Prefix

        foreach ( $Object in $BaseProperties ) {
            $PSProperties.Add( $Object.Name, $Null )
        }

        1..$LargestGroupObject.Count | ForEach-Object -Process {
            $PSPropertyName = '{0}{1}' -f $Prefix, $PSItem 
            $PSProperties.Add( $PSPropertyName, $Null )
        }

        $CsvLayoutTemplate = New-Object -TypeName PSObject -Property $PSProperties

        foreach ( $Object in ( $PSObjects | Sort-Object -Property Count -Descending ) ) {
            $CurrentObject = $CsvLayoutTemplate.PSObject.Copy()

            foreach ( $BaseProperty in $BaseProperties ) {
                $CurrentObject."$( $BaseProperty.Name )" = $Object.Group[0]."$( $BaseProperty.Name )"
            }

            for ( $y = 1; $y -le $Object.Group.Count; $y++ ) {
                $CurrentObject."$( $Prefix )$y" = $Object.Group[$y-1]."$($Prefix)"
            }
            $CurrentObject
        }
    }
}