import System.Environment (getArgs)
main = do
[filepath,text] <- getArgs
write filepath text
write fp str = withFile fp WriteMode $ \h -> hPutStr h str
CmltcG9ydCBTeXN0ZW0uRW52aXJvbm1lbnQgKGdldEFyZ3MpCmltcG9ydCBTeXN0ZW0uSU8KCm1haW4gPSBkbwogICAgW2ZpbGVwYXRoLHRleHRdIDwtIGdldEFyZ3MKICAgIHdyaXRlIGZpbGVwYXRoIHRleHQKCndyaXRlIDo6IEZpbGVQYXRoIC0+IFN0cmluZyAtPiBJTyAoKQp3cml0ZSBmcCBzdHIgPSB3aXRoRmlsZSBmcCBXcml0ZU1vZGUgJCBcaCAtPiBoUHV0U3RyIGggc3RyCg==