let previous_id_refresh_story () : unit =
         if((!id_refresh_story)<>[]) 
        then ( 
                id_refresh := (car !id_refresh_story) ; 
                id_refresh_story:=(cdr (!id_refresh_story)) 
        )