package Ġarrow . data Ċ Ċ import Ġarrow . test . Unit Spec Ċ import Ġio . kot lint est . K Test JUnit Runner Ċ import Ġorg . junit . runner . RunWith Ċ Ċ @ RunWith ( K Test JUnit Runner :: class ) Ċ class ĠTuple Test Ġ: ĠUnit Spec () Ġ{ ĊĠ Ġinit Ġ{ ĊĠĠĠ Ġ/* ĠFIXME ( p aco ) Ġthis Ġcode Ġsends Ġgradle Ġinto Ġan Ġinfinite Ġloop , Ġand Ġturns ĠIntelliJ Ġinto Ġa Ġmemory Ġch urn er ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtest L aws ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠMonad L aws . l aws ( Tuple 2 . mon ad ( Int Mon oid Instance ), ĠEq . any ()), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠCom on ad L aws . l aws ( Tuple 2 . com on ad (), Ġ{ Ġ 0 Ġto T Ġit Ġ}, ĠEq . any ()), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠTra verse L aws . l aws ( Tuple 2 . traverse (), ĠTuple 2 . functor (), Ġ{ Ġ 0 Ġto T Ġit Ġ}, ĠEq . any ()), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 2 . eq ( Int Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 2 ( it , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 2 . show (), ĠTuple 2 . eq ( Int Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 2 ( it , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 3 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 3 ( it , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 3 . show (), ĠTuple 3 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 3 ( it , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 4 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 4 ( it , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 4 . show (), ĠTuple 4 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 4 ( it , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 5 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 5 ( it , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 5 . show (), ĠTuple 5 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 5 ( it , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 6 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 6 ( it , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 6 . show (), ĠTuple 6 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 6 ( it , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 7 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 7 ( it , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 7 . show (), ĠTuple 7 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 7 ( it , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 8 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 8 ( it , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 8 . show (), ĠTuple 8 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 8 ( it , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 9 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 9 ( it , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 9 . show (), ĠTuple 9 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 9 ( it , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠEq L aws . l aws ( Tuple 1 0 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 1 0 ( it , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ}, ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠShow L aws . l aws ( Tuple 1 0 . show (), ĠTuple 1 0 . eq ( Int Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance , ĠInt Eq Instance )) Ġ{ ĠTuple 1 0 ( it , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit , Ġit ) Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠ Ġ*/ ĊĠ Ġ} Ċ } Ċ