import System.IO

main = do
    todoItem <- getLine
    if null todoItem then return () 
        else (do 
            appendFile "todo.txt" (todoItem ++ "\n")
            main)