1 -- Test instances for tuples up to 15
2 -- For Read, Show, Eq, Ord, Bounded
6 data T

= A | B | C | D | E | F | G | H | I | J | K | L | M | N | O

7 deriving( Eq

, Ord

, Show, Read, Bounded

)
9 t15

= (A

,B

,C

,D

,E

,F

,G

,H

,I

,J

,K

,L

,M

,N

,O

)
10 t14

= (A

,B

,C

,D

,E

,F

,G

,H

,I

,J

,K

,L

,M

,N

)
11 t13

= (A

,B

,C

,D

,E

,F

,G

,H

,I

,J

,K

,L

,M

)
12 t12

= (A

,B

,C

,D

,E

,F

,G

,H

,I

,J

,K

,L

)
13 t11

= (A

,B

,C

,D

,E

,F

,G

,H

,I

,J

,K

)
14 t10

= (A

,B

,C

,D

,E

,F

,G

,H

,I

,J

)
15 t9

= (A

,B

,C

,D

,E

,F

,G

,H

,I

)
16 t8

= (A

,B

,C

,D

,E

,F

,G

,H

)
25 big

= (t0

,t2

,t3

,t4

,t5

,t6

,t7

,t8

,t9

,t10

,t11

,t12

,t13

,t14

,t15

)
28 print (read (show big

) `

asTypeOf` big

)
32 print (minBound `

asTypeOf` big

)
33 print (maxBound `

asTypeOf` big

)