99-haskell-problems/Problems 11-20/problem_14.hs

dupli :: [a] -> [a]
dupli x = concat $ [replicate 2] <*> x