revstr :: String -> String
revstr = unwords . reverse . words 



revtext :: String -> String
revtext = unlines . map revstr . lines 

test = revtext "
        \\n\
        \fire, in end will world the say Some\n\
        \ice. in say Some\n\
        \desire of tasted I've what From\n\
        \fire. favor who those with hold I\n\
        \\n\
        \... elided paragraph last ...\n\
        \\n\
        \Frost Robert