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