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