[only CPR CPR types for now
John Meacham <john@repetae.net>**20060420064721] hunk ./E/WorkerWrapper.hs 43
-    f e _ (Tup n _) ts = return (Just n,e,reverse ts)
-    f e _ (Tag [n]) ts = return (Just n,e,reverse ts)
+    f e _ (Tup n _) ts | isCPR n = return (Just n,e,reverse ts)
+    f e _ (Tag [n]) ts | isCPR n = return (Just n,e,reverse ts)
hunk ./E/WorkerWrapper.hs 47
+    isCPR n | (Just [_]) <- getSiblings dataTable n = True
+            | otherwise = False