main :: IO ()
main = do test1 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
          test2 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
main :: IO ()
main = do test1 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
          test2 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
main = do test1 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
          test2 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)