let as_list t = (List.rev t.data) @ t.f_data