let forward_length t = List.length t.f_data