無理やり書いてみたが多分違う。

replicate n x = [y | n > 0, y <- x : replicate (n-1) x]