anchor.diff:              let cypherExpr = sprintf "[:%s]" typ.Name
               Some (RelExpr.TypedPattern(cypherExpr))
           | _ ->
  -            debug (string expr)
  +            debug "%O" expr
               None
   
       let inline (|CreateNodeCall|_|) (callExpr: Expr) =
           match callExpr with
           | SpecificCall <@ createNode @>
               (_, _, [IsNodeExpr(NodeExpr.NamedValue _ as nodeExpr)]) ->
  -            printfn "Create node: %A" nodeExpr
  +            debug "Create node: %A" nodeExpr
               Some nodeExpr
           | _ -> None
   
  
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:             Some (NodeExpr.NamedValue(cypherExpr, paramName, value))
          | DeclareNodeCall(nodeType) -> Some (NodeExpr.Anonymous(nodeType))
          | _ ->
              debug "%O" expr
              None
  
      let inline (|IsRelExpr|_|) expr: Option<RelExpr> =
  