How can i iterate and add words to a line in haskell? IO

Question

I have a main do block like this:

main = do
putStrLn "Insert a word:"
word <- getLine

My starting point is this line:

<