let
clear l =
l := []