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