import System.Directory

resource = mail { 
	editor = do b <- doesFileExist "/usr/bin/emacs"
		    return $ if b then "emacs" else "vi" ,

	attribution = \name -> "Today, "++name++" wrote :"
}