Update examples

testsuite/hier/hier4/Main.hs

@@ -0,0 +1,12 @@
+module Main where
+
+import System.Plugins
+
+main = do
+
+    makeAll "A.hs" []
+
+    y <- load "A.o" ["."] [] "u"
+    case y of
+        LoadSuccess _ _ -> putStrLn $ "YES"
+        LoadFailure e   -> mapM_ putStrLn e