duplicate = (. replicate) . (>>=)
or more basic
duplicate xs n = concatMap (replicate n) xs
if you want to have list multiplication by notation as well
> let (**) :: [a] -> Int -> [a]
| (**) = (. replicate) . (>>=)
> ["a","b"]**3
["a","a","a","b","b","b"]
