let clear t = t.data <- [] ; t.f_data <- []