let remove_stack_story = (ref [] : ((string * string * string) * string) list list Pervasives.ref)