f :: Int -> [Int] -> [Int]
f n [] = []
f n arr
  | tail arr  == [] = arr
  | otherwise       = replicate n (head arr) ++ f n (tail arr)

main = getContents >>=
       mapM_ print. (\(n:arr) -> f n arr). map read. words

Program error: pattern match failure: main_v3585 []