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