Create fusionList.hs