import Control.Monad (unless)
import System.Environment (getEnv)
import System.IO (hPrint, stderr)
import System.IO.Error (isDoesNotExistError)

main = do
  home <- getEnv "HOME"
  let f = home ++ "/.rcrc"
  catch (runrcrc f) norcrc

runrcrc f = do
  x <- readFile f
  putStr x

norcrc e = unless (isDoesNotExistError e) (hPrint stderr e)