let chop_prefix t ~prefix =     try Some (chop_prefix_exn t prefix)     with _ -> None