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:                         
                      // Format 'set' and 'map' nicely
                      | _ when  
                            (let ty = obj.GetType()
                             ty.IsGenericType && (ty.GetGenericTypeDefinition() = typedefof<Map<int,int>> 
                                                  || ty.GetGenericTypeDefinition() = typedefof<Set<int>>) ) ->
                           let ty = obj.GetType()
                           let word = if ty.GetGenericTypeDefinition() = typedefof<Map<int,int>> then "map" else "set"
                           let possibleKeyValueL v = 
                               if word = "map" &&
                                  (match v with null -> false | _ -> true) && 
                                  v.GetType().IsGenericType && 
                                  v.GetType().GetGenericTypeDefinition() = typedefof<KeyValuePair<int,int>> then
                                    objL depthLim Precedence.BracketIfTuple (v.GetType().GetProperty("Key").GetValue(v, [| |]), 
                                                                             v.GetType().GetProperty("Value").GetValue(v, [| |]))
                               else
                                    objL depthLim Precedence.BracketIfTuple v
                           let it = (obj :?>  System.Collections.IEnumerable).GetEnumerator() 
  
negative.code:                            // Also, in the declared values case, if the sequence is actually a known non-lazy type (list, array etc etc) we could print it.  
                             wordL "<seq>" |> showModeFilter
                      | _ ->
                           if showMode = ShowTopLevelBinding && typeUsesSystemObjectToString ty then
                             emptyL
                           else
                             countNodes 1
  