anchor.diff:      }     
       
   let removeFolder (results: ParseResults<RemoveFolderArgs>) = 
  -    traceWarning "function not implemented yet"
  -    Some Continue
  -
  +    maybe {
  +        let! name = results.TryGetResult <@ RemoveFolderArgs.Name @>
  +        let! project = results.TryGetResult <@ RemoveFolderArgs.Project @> 
  +        Furnace.init project
  +        |> Furnace.removeDirectory name 
  +        |> ignore       
  +        
  +        return Continue
  +    }
   
   let processRemove args =
       match subCommandArgs args with
  
positive.code: // List Command Handlers
  //-----------------------------------------------------------------
  
  let listFile (results : ParseResults<_>) =
      printfn "not implemented yet"
      Some Continue
  
  
  let listReference (results : ParseResults<_>) =
      printfn "not implemented yet"
      Some Continue
  
  
  let listProject (results : ParseResults<_>) =
      printfn "not implemented yet"
      Some Continue
  
  
  let processList args =
  
negative.code:     }
  
  let removeReference (results : ParseResults<RemoveReferenceArgs>) =
      maybe {
          let! name = results.TryGetResult <@ RemoveReferenceArgs.Name @>
          let! project = results.TryGetResult <@ RemoveReferenceArgs.Project @> 
          Furnace.init project
  