>>> repeat 17 [17,17,17,17,17,17,17,17,17...
>>> take 20 $ repeat 17 [17,17,17,17,17,17,17,17,17...
>>> S.print $ S.take 3 $ S.repeat 1 1 1 1
repeat (Exactly 6) (takeWhile ((/=) ',') <* element ',')## Repeat Between lower `And` upper times
repeat (Between $ 1 `And` 10) (takeWhile ((/=) ',') <* element ',')