Create partition.hs