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