let list l = List_make l