[a helper I do not need anymore, but maybe later
martin.hofmann@uni-bamberg.de**20100818084816] hunk ./src/Syntax/Name.hs 4
-    isTuple, isCons, isNil,
+    isTuple,isAnyTuple,  isCons, isNil,
hunk ./src/Syntax/Name.hs 28
+                
+
+isAnyTuple n  = n == '(,) || n == '(,,) || n == '(,,,) || n == '(,,,,) || n == '(,,,,,) || n == '(,,,,,,) || n == '(,,,,,,,) || n == '(,,,,,,,,) || n == '(,,,,,,,,,) || n == '(,,,,,,,,,,) || n == '(,,,,,,,,,,,) || n == '(,,,,,,,,,,,,) || n == '(,,,,,,,,,,,,,) || n == '(,,,,,,,,,,,,,,)                