anchor.diff:  #else
                           wordL (formatString s)  
   #endif                        
  -                    | :? System.Array as arr -> 
  +                    | :? Array as arr -> 
                           match arr.Rank with
                           | 1 -> 
                                let n = arr.Length
  
positive.code:                               // massively reign in deep printing of properties 
                                let nDepth = depthLim/10
  #if FX_ATLEAST_PORTABLE
                                System.Array.Sort((propsAndFields),{ new System.Collections.Generic.IComparer<MemberInfo> with member this.Compare(p1,p2) = compare (p1.Name) (p2.Name) } );
  #else                              
                                System.Array.Sort((propsAndFields :> System.Array),{ new System.Collections.IComparer with member this.Compare(p1,p2) = compare ((p1 :?> MemberInfo).Name) ((p2 :?> MemberInfo).Name) } );
  #endif                        
  
                                if propsAndFields.Length = 0 || (nDepth <= 0) then basicL 
  
negative.code:                             Some (wordL (x.ToString()))
                            else
                              // Try the StructuredFormatDisplayAttribute extensibility attribute
                              match ty.GetCustomAttributes (typeof<StructuredFormatDisplayAttribute>, true) with
                              | null | [| |] -> None
                              | res -> 
                                 let attr = (res.[0] :?> StructuredFormatDisplayAttribute) 
  