HASKELL assignment (without using any imports)

given the function :

lapp :: Int->[String]->[String]

lapp i [] = []

lapp i (x:xs) = (concat(take i(repeat x)) : lapp i xs)

-- end of function

Use "foldr" to define "fapp" which completes the equation: fapp f xs = lapp f xs.