anchor.diff:  
   /// Creates and returns a new workflow from a name
   let create_workflow (workflow : WorkflowName) : ResultWorkflow =
  +    failwith "Not implemented yed."
       ResultWorkflow.Ok(workflow,[])
   
   //Read
  
positive.code: //    let rec findEvents
  //        match eventList with
  //        | [] -> []
      
  //recursive find the events and :: them together and return them?
      failwith "Not implemented yed."
  
  
negative.code: 
  /// Adds a given event to a given Workflow and returns the result
  let add_event (workflow : Workflow) (event : EventName) : ResultWorkflow =
      failwith "Not implemented yed."
      let wfName, eventNameList = workflow
      ResultWorkflow.Ok(wfName, event::eventNameList)
  
  