Update examples

testsuite/multi/3plugins/prog/Main.hs

@@ -0,0 +1,13 @@
+import System.Plugins
+import API
+
+main = do
+        let plist = ["../Plugin1.o", "../Plugin2.o", "../Plugin3.o"]
+        plugins <- mapM (\p -> load p ["../api"] [] "resource") plist
+        let functions = map (valueOf . fromLoadSuc) plugins
+
+        -- apply the function from each plugin in turn
+        mapM_ (\f -> putStrLn $ f "haskell is for hackers") functions
+
+fromLoadSuc (LoadFailure _)   = error "load failed"
+fromLoadSuc (LoadSuccess _ v) = v