tcfail004.hs:3: Couldn't match the type
		    `PrelTup.(,)' against `PrelTup.(,,) t{-aXz-}'
    Expected: `(t{-aXt-}, t{-aXw-})'
    Inferred: `(t{-aXz-}, t{-aXC-}, t{-aXF-})'
    In a pattern binding:
	(`f', `g')
	    =   `(1, 2, 3)'


Compilation had errors