let
totalize f a =
try
f a
with
Not_found
->
id a