Sourcetype kind = | Truncated of {need : Len.t;have : Len.t;
}| Out_of_range of {kind : string;value : string;
}| Unexpected_tag of {tag : int;expected : int list;
}| Length_mismatch of {expected : int;got : int;
}| Msg of string
Sourceval reraise_in : string -> exn -> 'a