+let maybe = MaybeBuilder ()
+
+type Result<'a> =
+ | Success of 'a
+ | Fail of string // Error message.
+
+type ResultBuilder () =
+ member this.Bind (res, f) =
+ match res with
+ | Success value -> f value
+ | fail -> fail
+
+ member this.ReturnFrom (x) = x
+
+let result = ResultBuilder ()
+
+type AnalysisResult =
+ {
+ Cells : Cell list
+ RBCSize_μm : float<μm>
+ RBCSize_px : float32
+ }
\ No newline at end of file