DaftPunk.hs

-- Daft Punk

wmdm = ["work it ","make it ","do it ","makes us "]
hbfs = ["harder","better","faster","stronger"]
mteha = [("more than ", "ever"), ("hour ", "after")]
hwino = [("hour ", "work is"), ("never ", "over")]
intro = wmdm ++ hbfs ++ map fst (mteha ++ hwino) ++ map snd (mteha ++ hwino) ++ wmdm ++ hbfs
chorus = zipWith (++) wmdm hbfs ++ fmap combine (mteha ++ hwino)
chorusalt = zipWith (++) wmdm ("":tail hbfs) ++ fmap combine (mteha ++ hwino)
outro = evens (zipWith (++) wmdm hbfs) ++ fmap combine (head mteha:hwino)


song = intro ++ take 7 chorus ++ chorusalt ++ take 4 chorus ++ outro++chorus

evens (x:xs) = x:odds xs
evens _ = []

odds (_:xs) = evens xs
odds _ = []

combine (x, y) = x++y