HIIT Generation

input/code.hs:1:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: main :: IO ()

input/code.hs:2:5: warning: [-Wunused-do-bind]
    A do-notation statement discarded a result of type `String'
    Suppress this warning by saying `_ <- getLine'

input/code.hs:10:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      asd :: Foldable t => t Char -> Char -> [Char]

input/code.hs:13:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: hiit :: [Char]

main = do
    getLine
    c <- getContents
    putStrLn $ solve $ map head $ lines c

solve :: [Char] -> String
solve =
    foldl asd hiit

asd t x =
    concatMap (\c -> if c == x then hiit else [c]) t
    
hiit = "HIIT"

Test 1

Verdict: ACCEPTED

Test 2

Verdict: TIME LIMIT EXCEEDED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED