more Shortest Repetition

Haskell