let clear l = 
    l := []