repexp :: Int -> a -> [a]
repexp 0 x = [x]
repexp n x = concat $ repexp (n-1) [x, x]

이런것을 의미한다고 한다 ㅇㅅㅇ