import System.Environment (getArgs)
import System.IO

main = do
    [filepath,text] <- getArgs
    write filepath text

write :: FilePath -> String -> IO ()
write fp str = withFile fp WriteMode $ \h -> hPutStr h str