Update expand_list.hs