anchor.diff:          async |> Async.map Some
   
   [<RequireQualifiedAccess>]
  -module String =
  +module internal String =
       let lowerCaseFirstChar (str: string) =
           match str with
           | null -> null
  
positive.code: open System
  
  [<RequireQualifiedAccess>]
  module Seq =
      let tryHead s =
          if Seq.isEmpty s then None else Some (Seq.head s)
  
  [<RequireQualifiedAccess>]
  module Option =
      let inline ofNull value =
          if obj.ReferenceEquals(value, null) then None else Some value
  
  
negative.code:                     body enum.Current)))
  
  [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
  module internal AsyncMaybe =
      let liftMaybe (maybe: Option<'T>) : Async<_ option> =
          async { return maybe }
  
  