let opt f = function Some v -> f v | None -> ()