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