Update CompoundWord.hs