anchor.diff:          }
   
   let typeCondition =
  -    %% "on" -% +.name -%> auto
  +    %% "on" -..- +.name -%> auto
   
   let inlineFragment selections =
       %% "..."
  -    -% +.(typeCondition * zeroOrOne)
  -    -% +.opts directives
  -    -% +.selections
  +    -..- +.(typeCondition * zeroOrOne)
  +    -..- +.directives
  +    -..- +.selections
       -%> fun typeCond dirs sels ->
           {
               TypeCondition = typeCond
  
positive.code:         ArgumentValue : Value
      }
  
  let opts parser =
      %[
          parser
          preturn (new ResizeArray<_>())
  
negative.code: let arguments =
      let argument =
          %% +.name
          -..- ':'
          -..- +.value
          -%> fun name value ->
              { ArgumentName = name; ArgumentValue = value }
      %% '(' -..- +.(qty.[1..] /. ignored * argument) -- ')'
      -%> auto
  
  type Directive =
  