let rec seq init actions = match init, actions with | Right(issue), _ -> Right(issue) | Left(data), [] -> Left(data) | Left(data), act::ions -> seq (act data) ions