test :: a test = let a = (1,"bbb") in case a of { (n, s) -> _w0 }