anchor.diff:  
   /// Each multiline member definition has a pre and post new line. 
   and genMemberDefnList inter = function
  +
       | [x] -> sepNln +> genMemberDefn inter x
  +
  +    | MDOpenL(xs, ys) ->
  +        let xs = xs |> sortAndDedup ((|MDOpen|_|) >> Option.get)
  +        match ys with
  +        | [] -> col sepNln xs (genMemberDefn inter)
  +        | _ -> col sepNln xs (genMemberDefn inter) +> rep 2 sepNln +> genMemberDefnList inter ys
   
       | MultilineMemberDefnL(xs, []) ->
           rep 2 sepNln 
  
positive.code: ﻿module internal Fantomas.CodePrinter
  
  open Fantomas.FormatConfig
  open Fantomas.SourceParser
  open Fantomas.SourceTransformer
  
  let sortOpenDeclarations xs asOpenDecl =
  
      let (|OpenDecl|_|) x : string option = asOpenDecl x
  
      let rec groupAndSortContiguousOpenDecls decls = 
  
          // 1 = open declartion, 2,3,4 = other declarations
          // returns [1;1],[2;3;4] for [1;1;2;3;4]
          // returns [],[2;1;1;2;3;4] for [2;1;1;2;3;4]
          let rec findContiguousOpenDecls openDecls = function
              | (OpenDecl _ as x)::xs -> findContiguousOpenDecls (x::openDecls) xs
              | decls -> openDecls, decls
  
          // returns [[2],[1;1];[2];[3];[1;1];[4]] for [2;1;1;2;3;1;1;4]
          match findContiguousOpenDecls [] decls with
          | [], [] -> []
          | [], decl::decls -> [decl]::(groupAndSortContiguousOpenDecls decls)
          | openDecls, decls ->
               let openDeclsSorted = openDecls |> List.sortBy (asOpenDecl >> Option.get)
               openDeclsSorted::(groupAndSortContiguousOpenDecls decls)
  
      xs |> groupAndSortContiguousOpenDecls |> List.collect id
  
  let rec genParsedInput = function
      | ImplFile im -> genImpFile im
  
negative.code:     +> genModuleDeclList mds
  
  and genSigModuleOrNamespace(SigModuleOrNamespace(ats, px, ao, s, mds, isModule)) =
      genPreXmlDoc px
      +> colPost sepNln sepNln ats genAttribute
      +> ifElse (s = "Tmp") sepNone (ifElse isModule (!- "module ") (!- "namespace ")
      +> opt sepSpace ao genAccess -- s +> rep 2 sepNln)
      +> genSigModuleDeclList mds
  
  and genModuleDeclList = function
      | [x] -> genModuleDecl x
  