anchor.diff:              |> List.fold (fun (accMeta, accRes) body ->
                   //printfn "%A" body
                   expandBody body module' metaRules expanded accRes
  -                |> (fun (newBody, newAccRes) ->
  -                    (newBody::accMeta, newAccRes)
  -                )
  +                |> fun (newBody, newAccRes) -> (newBody::accMeta, newAccRes)
               ) ([], resRuleList)
               |> applyToRes List.rev
           // TODO catch exception
  
positive.code:             |> List.map getProdKey
              |> String.concat ";"
              |> fun res -> "[|" + res + "|]"
          |PSome x -> "(" + getProdKey x + ")+"
          |POpt x -> "(" + getProdKey x + ")?"
      module' + ":" + getProdKey key
  
  /// <summary>
  
negative.code:     inherit Conversion()
          override this.Name = "ExpandMeta"
          override this.ConvertGrammar (grammar,_) = expandMetaRules grammar
  