module Main where

import IO
import System

main :: IO ()
main = do [varname] <- getArgs
          thedata <- hGetContents stdin
          putStr $ "const char *" ++ varname ++ "_foobar =\n \""
          putStr $ concatMap c2s thedata
          putStr "\";\n"
          putStr $ "char *" ++ varname ++ "() {\n" ++
                     "  return "++varname++"_foobar;\n}\n"
    where c2s '\n' = "\\n\"\n \""
          c2s '\\' = "\\\\"
          c2s '\t' = "\\t"
          c2s '\r' = "\\r"
          c2s '"'  = "\\\""
          c2s c = [c]