-- concatReplicate is to replicate as concatMap is to map
concatReplicate :: Int -> [a] -> [a]
concatReplicate n list = take (n * length list) $ cycle list
concatReplicate :: Int -> [a] -> [a]
concatReplicate n list = take (n * length list) $ cycle list
concatReplicate n list = take (n * length list) $ cycle list