let
(>>=) =
Model
.bind