anchor.diff:              | x::xs -> inner (fileMap.Add (n.ToString(),x)) (n+1) xs
           inner Map.empty 1 names
   
  -// adds a new role to the workflow
  +//Adds a new role to the workflow
   let addRole name roles =
       if List.exists (fun x -> x = name) roles
       then printfn "ERROR: The role (%s) do alderady exist" name; roles
       else name::roles
   
  -// POST new events and ralentienships to the server
  +//POST new events and relationships to the server
   let post (url : string) data roles =
       use w = new System.Net.WebClient ()
       try
  
positive.code: [<EntryPoint>]
  let main argv =
  
      //Try to make and move a new event.exe, from teh Event project
      #if TARGET_MAC
      #else
      if File.Exists("event.exe")
      then File.Delete("event.exe")
      File.Copy(@"..\..\..\Event\bin\Debug\Event.exe",@"Event.exe")
  
      //Starts the server form the .exe fil server form same plasments as the program
      let p = new System.Diagnostics.Process()
      p.StartInfo.FileName <- "event.exe"
      p.StartInfo.Arguments <- (serverName + " " + port)
  
negative.code:             System.Console.ReadKey() |> ignore
      roles
  
  //Parses a string into a specific post to the server.
  let parse (line : string) roles =
      let words = List.ofArray(line.Split ' ')
      match words with
  