path: root/11-20/14.hs

dupli :: [a] -> [a]

dupli [] = []
dupli (x:xs) = x:x:(dupli xs)