Move partial_zip into Rich_list and open as List. (Seems to be the equivalent to PML in OCaml...)