what am i even doing

wat.hs

f :: Int -> [Int] -> [Int]
f n arr = -- Complete this function
    concat $ map (makeN n) arr

makeN :: Int -> (Int -> [Int])
makeN n =
    (\x -> map (\i -> x) [1..n])


-- This part handles the Input and Output and can be used as it is. Do not modify this part.
main :: IO ()
main = getContents >>=
       mapM_ print. (\(n:arr) -> f n arr). (map read). words