module Main where

import System.Environment ( getArgs )
import System.Exit ( exitFailure, exitSuccess )

main :: IO ()
main = do
    args <- getArgs
    if args == ["1", "2", "3"]
        then exitSuccess
        else putStrLn ("Got: " ++ show args) >> exitFailure