anchor.diff:              | Var(_var) -> None
               | NamedValue(_, paramName, value) -> Some (paramName, value)
               | Anonymous(_) -> None
  +
           member x.Create(cypher: ICypherFluentQuery) =
               match x with
               | Var(_var) -> cypher.Create(x.CypherExpr)
  
positive.code:                 let withParamFolder (cypher: ICypherFluentQuery) (paramName, value) =
                      cypher.WithParam(paramName, value)
  
                  debug ("Create relation: " + x.CypherExprForCreate)
  
                  if isUnique then
                      cypher.CreateUnique(x.CypherExprForCreate)
  
negative.code:             let cypherExpr = sprintf "[:%s]" typ.Name
              Some (RelExpr.TypedPattern(cypherExpr))
          | _ ->
              debug "%O" expr
              None
  
      let inline (|CreateNodeCall|_|) (callExpr: Expr) =
          match callExpr with
          | SpecificCall <@ createNode @>
              (_, _, [IsNodeExpr(NodeExpr.NamedValue _ as nodeExpr)]) ->
              debug "Create node: %A" nodeExpr
              Some nodeExpr
          | _ -> None
  
  