let stmt v = match stmt_opt v with None -> raise Not_found | Some s -> s