let (>>=) = Model.bind