I created simple program. Take some input and repeat it but...IO is executed out of order. What can I do with it?
main = putStr "Plese write some characters: " >>
getLine >>= (\str -> putStrLn $ "You wrote "++str++"!") >>
putStrLn "Bye"