--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/paste/paste.14186	Thu Feb 16 19:42:32 2012 +0000
@@ -0,0 +1,16 @@
+import System.Environment
+import System.Process
+import System.Exit
+import Control.Monad
+import Control.Applicative
+import Data.List
+
+main = do
+    r <- buildRegex . permuteArgs <$> getArgs
+    (_, _, _, h) <- createProcess (proc "/hackenv/bin/log" [r])
+    exitWith <$> waitForProcess h
+   where
+     permuteArgs = permutations . join . map words
+     buildRegex = oBrackets . intercalate ".*" . map (iBrackets . intercalate "|")
+     iBrackets s = "(?:" ++ s ++ ")"
+     oBrackets s = "^.*(?:" ++ s ++ ").*$"