anchor.diff:      then stripBrackets (body.[1..(String.length body)-2])
       else body
   
  +let formatArguments functionName arguments =
  +    List.map (fun s -> " " + s) arguments
  +    |> List.fold (+) functionName
  +
   let DefaultInScopeTree (tree : Ast.AstNode) (expressionRange : range) =
       let outermostBinding = TryFindBindingAroundRange expressionRange tree
       let outermostExpression = TryFindExpressionAroundRange expressionRange tree
  
positive.code:  
  let CallFunction functionName arguments callRange : Refactoring<unit,unit> =
      //TODO: don't always put brackets around function body
      //TODO: this is contrived, just get rid of the templates...
      let transform (source, ()) =
          let functionCall =
              List.map (fun s -> " " + s) arguments
              |> List.fold (+) functionName 
          if List.isEmpty arguments then
              source, [callRange, functionCall], ()
          else
  
negative.code:     else outermostExpression
  
  let CreateFunction functionName arguments body isMultiLine indentString (declarationRange : range) : Refactoring<unit,Identifier> =
      let declarationSource =
          let parameters =
              formatArguments functionName arguments
          let body =
              if isMultiLine then
                  Indent (stripBrackets body) "    "
              else
                  stripBrackets body
          if isMultiLine then
              sprintf "let %s =\n%s\n" parameters body
          else
              sprintf "let %s = %s in " parameters body
  
      let transform (source,()) =
          let nameRange =
  