let automate_story = (ref [] : (string * int * (string * bool) list) list list Pervasives.ref)