anchor.diff:          | "Relen"::event::typ::toEvent::[]      -> post (sprintf " %s/%s/%s" url event typ) toEvent roles
           | x                                     -> printfn "ERROR: \"%s\" Is not parseble" (List.fold (fun acc x -> acc + x + " ") "" x); roles
   
  -//Parse alle lines in select file or writen
  +//Parse all lines in selected file or written file.
   let rec parseTxtFile fileMap =
       Map.iter (fun key filename -> printfn "%s : %s" key filename) fileMap
       printfn "Select a file or a filepath"
  
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:             | x::xs -> inner (fileMap.Add (n.ToString(),x)) (n+1) xs
          inner Map.empty 1 names
  
  //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 relationships to the server
  let post (url : string) data roles =
      use w = new System.Net.WebClient ()
      try
  