{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances #-}
module Data.Tuple.Sequence where
import Data.Tuple.OneTuple
import Control.Monad
class SequenceT a b | a -> b where
sequenceT :: a -> b
instance (Monad m) => SequenceT (OneTuple (m a)) (m (OneTuple a)) where
sequenceT :: OneTuple (m a) -> m (OneTuple a)
sequenceT (OneTuple m a
a) = (a -> OneTuple a) -> m (a -> OneTuple a)
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return a -> OneTuple a
forall a. a -> Solo a
OneTuple m (a -> OneTuple a) -> m a -> m (OneTuple a)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a
a
instance (Monad m) => SequenceT (m a1,m a2) (m (a1,a2)) where sequenceT :: (m a1, m a2) -> m (a1, a2)
sequenceT (m a1
a1,m a2
a2) = (a1 -> a2 -> (a1, a2)) -> m (a1 -> a2 -> (a1, a2))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,) m (a1 -> a2 -> (a1, a2)) -> m a1 -> m (a2 -> (a1, a2))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2 -> (a1, a2)) -> m a2 -> m (a1, a2)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2
instance (Monad m) => SequenceT (m a1,m a2,m a3) (m (a1,a2,a3)) where sequenceT :: (m a1, m a2, m a3) -> m (a1, a2, a3)
sequenceT (m a1
a1,m a2
a2,m a3
a3) = (a1 -> a2 -> a3 -> (a1, a2, a3))
-> m (a1 -> a2 -> a3 -> (a1, a2, a3))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,) m (a1 -> a2 -> a3 -> (a1, a2, a3))
-> m a1 -> m (a2 -> a3 -> (a1, a2, a3))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2 -> a3 -> (a1, a2, a3)) -> m a2 -> m (a3 -> (a1, a2, a3))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3 -> (a1, a2, a3)) -> m a3 -> m (a1, a2, a3)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4) (m (a1,a2,a3,a4)) where sequenceT :: (m a1, m a2, m a3, m a4) -> m (a1, a2, a3, a4)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4) = (a1 -> a2 -> a3 -> a4 -> (a1, a2, a3, a4))
-> m (a1 -> a2 -> a3 -> a4 -> (a1, a2, a3, a4))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,) m (a1 -> a2 -> a3 -> a4 -> (a1, a2, a3, a4))
-> m a1 -> m (a2 -> a3 -> a4 -> (a1, a2, a3, a4))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2 -> a3 -> a4 -> (a1, a2, a3, a4))
-> m a2 -> m (a3 -> a4 -> (a1, a2, a3, a4))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3 -> a4 -> (a1, a2, a3, a4))
-> m a3 -> m (a4 -> (a1, a2, a3, a4))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4 -> (a1, a2, a3, a4)) -> m a4 -> m (a1, a2, a3, a4)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5) (m (a1,a2,a3,a4,a5)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5) -> m (a1, a2, a3, a4, a5)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5) = (a1 -> a2 -> a3 -> a4 -> a5 -> (a1, a2, a3, a4, a5))
-> m (a1 -> a2 -> a3 -> a4 -> a5 -> (a1, a2, a3, a4, a5))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,) m (a1 -> a2 -> a3 -> a4 -> a5 -> (a1, a2, a3, a4, a5))
-> m a1 -> m (a2 -> a3 -> a4 -> a5 -> (a1, a2, a3, a4, a5))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2 -> a3 -> a4 -> a5 -> (a1, a2, a3, a4, a5))
-> m a2 -> m (a3 -> a4 -> a5 -> (a1, a2, a3, a4, a5))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3 -> a4 -> a5 -> (a1, a2, a3, a4, a5))
-> m a3 -> m (a4 -> a5 -> (a1, a2, a3, a4, a5))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4 -> a5 -> (a1, a2, a3, a4, a5))
-> m a4 -> m (a5 -> (a1, a2, a3, a4, a5))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5 -> (a1, a2, a3, a4, a5)) -> m a5 -> m (a1, a2, a3, a4, a5)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6) (m (a1,a2,a3,a4,a5,a6)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6) -> m (a1, a2, a3, a4, a5, a6)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6) = (a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
-> m (a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,) m (a1 -> a2 -> a3 -> a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
-> m a1
-> m (a2 -> a3 -> a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2 -> a3 -> a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
-> m a2 -> m (a3 -> a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3 -> a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
-> m a3 -> m (a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4 -> a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
-> m a4 -> m (a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5 -> a6 -> (a1, a2, a3, a4, a5, a6))
-> m a5 -> m (a6 -> (a1, a2, a3, a4, a5, a6))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6 -> (a1, a2, a3, a4, a5, a6))
-> m a6 -> m (a1, a2, a3, a4, a5, a6)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7) (m (a1,a2,a3,a4,a5,a6,a7)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7)
-> m (a1, a2, a3, a4, a5, a6, a7)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> (a1, a2, a3, a4, a5, a6, a7))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> (a1, a2, a3, a4, a5, a6, a7))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> (a1, a2, a3, a4, a5, a6, a7))
-> m a1
-> m (a2
-> a3 -> a4 -> a5 -> a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3 -> a4 -> a5 -> a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
-> m a2
-> m (a3 -> a4 -> a5 -> a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3 -> a4 -> a5 -> a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
-> m a3 -> m (a4 -> a5 -> a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4 -> a5 -> a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
-> m a4 -> m (a5 -> a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5 -> a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
-> m a5 -> m (a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6 -> a7 -> (a1, a2, a3, a4, a5, a6, a7))
-> m a6 -> m (a7 -> (a1, a2, a3, a4, a5, a6, a7))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7 -> (a1, a2, a3, a4, a5, a6, a7))
-> m a7 -> m (a1, a2, a3, a4, a5, a6, a7)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8) (m (a1,a2,a3,a4,a5,a6,a7,a8)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8)
-> m (a1, a2, a3, a4, a5, a6, a7, a8)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> (a1, a2, a3, a4, a5, a6, a7, a8))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> (a1, a2, a3, a4, a5, a6, a7, a8))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m a2
-> m (a3
-> a4 -> a5 -> a6 -> a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4 -> a5 -> a6 -> a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m a3
-> m (a4
-> a5 -> a6 -> a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4 -> a5 -> a6 -> a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m a4
-> m (a5 -> a6 -> a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5 -> a6 -> a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m a5 -> m (a6 -> a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6 -> a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m a6 -> m (a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7 -> a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m a7 -> m (a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8 -> (a1, a2, a3, a4, a5, a6, a7, a8))
-> m a8 -> m (a1, a2, a3, a4, a5, a6, a7, a8)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a4
-> m (a5
-> a6 -> a7 -> a8 -> a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6 -> a7 -> a8 -> a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a5
-> m (a6 -> a7 -> a8 -> a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6 -> a7 -> a8 -> a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a6
-> m (a7 -> a8 -> a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7 -> a8 -> a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a7 -> m (a8 -> a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8 -> a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a8 -> m (a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9))
-> m a9 -> m (a1, a2, a3, a4, a5, a6, a7, a8, a9)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a6
-> m (a7
-> a8 -> a9 -> a10 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8 -> a9 -> a10 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a7
-> m (a8 -> a9 -> a10 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8 -> a9 -> a10 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a8
-> m (a9 -> a10 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9 -> a10 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a9 -> m (a10 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10))
-> m a10 -> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a8
-> m (a9
-> a10 -> a11 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10 -> a11 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a9
-> m (a10 -> a11 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10 -> a11 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a10
-> m (a11 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11))
-> m a11 -> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a9
-> m (a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a10
-> m (a11
-> a12 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a11
-> m (a12 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12))
-> m a12 -> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a10
-> m (a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a11
-> m (a12
-> a13 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a12
-> m (a13
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13 -> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13))
-> m a13
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a11
-> m (a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a12
-> m (a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a13
-> m (a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14))
-> m a14
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a12
-> m (a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a13
-> m (a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a14
-> m (a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15))
-> m a15
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a13
-> m (a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a14
-> m (a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a15
-> m (a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16))
-> m a16
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a14
-> m (a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a15
-> m (a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a16
-> m (a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17))
-> m a17
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a15
-> m (a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a16
-> m (a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a17
-> m (a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18))
-> m a18
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a16
-> m (a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a17
-> m (a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a18
-> m (a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19))
-> m a19
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a17
-> m (a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a18
-> m (a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a19
-> m (a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20))
-> m a20
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a18
-> m (a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a19
-> m (a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a20
-> m (a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21))
-> m a21
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a19
-> m (a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a20
-> m (a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a21
-> m (a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22))
-> m a22
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a20
-> m (a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a21
-> m (a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a22
-> m (a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23))
-> m a23
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a21
-> m (a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a22
-> m (a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a23
-> m (a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24))
-> m a24
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24,m a25) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24, m a25)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24,m a25
a25) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a21
-> m (a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a22
-> m (a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a23
-> m (a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a24
-> m (a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24 m (a25
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25))
-> m a25
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a25
a25
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24,m a25,m a26) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24, m a25, m a26)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24,m a25
a25,m a26
a26) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a21
-> m (a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a22
-> m (a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a23
-> m (a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a24
-> m (a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24 m (a25
-> a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a25
-> m (a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a25
a25 m (a26
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26))
-> m a26
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a26
a26
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24,m a25,m a26,m a27) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24, m a25, m a26, m a27)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24,m a25
a25,m a26
a26,m a27
a27) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a21
-> m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a22
-> m (a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a23
-> m (a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a24
-> m (a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24 m (a25
-> a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a25
-> m (a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a25
a25 m (a26
-> a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a26
-> m (a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a26
a26 m (a27
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27))
-> m a27
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a27
a27
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24,m a25,m a26,m a27,m a28) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24, m a25, m a26, m a27, m a28)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24,m a25
a25,m a26
a26,m a27
a27,m a28
a28) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a21
-> m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a22
-> m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a23
-> m (a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a24
-> m (a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24 m (a25
-> a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a25
-> m (a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a25
a25 m (a26
-> a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a26
-> m (a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a26
a26 m (a27
-> a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a27
-> m (a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a27
a27 m (a28
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28))
-> m a28
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a28
a28
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24,m a25,m a26,m a27,m a28,m a29) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24, m a25, m a26, m a27, m a28,
m a29)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24,m a25
a25,m a26
a26,m a27
a27,m a28
a28,m a29
a29) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a21
-> m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a22
-> m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a23
-> m (a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a24
-> m (a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24 m (a25
-> a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a25
-> m (a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a25
a25 m (a26
-> a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a26
-> m (a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a26
a26 m (a27
-> a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a27
-> m (a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a27
a27 m (a28
-> a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a28
-> m (a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a28
a28 m (a29
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29))
-> m a29
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a29
a29
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24,m a25,m a26,m a27,m a28,m a29,m a30) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24, m a25, m a26, m a27, m a28,
m a29, m a30)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24,m a25
a25,m a26
a26,m a27
a27,m a28
a28,m a29
a29,m a30
a30) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a21
-> m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a22
-> m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a23
-> m (a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a24
-> m (a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24 m (a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a25
-> m (a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a25
a25 m (a26
-> a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a26
-> m (a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a26
a26 m (a27
-> a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a27
-> m (a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a27
a27 m (a28
-> a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a28
-> m (a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a28
a28 m (a29
-> a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a29
-> m (a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a29
a29 m (a30
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30))
-> m a30
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a30
a30
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24,m a25,m a26,m a27,m a28,m a29,m a30,m a31) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24, m a25, m a26, m a27, m a28,
m a29, m a30, m a31)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24,m a25
a25,m a26
a26,m a27
a27,m a28
a28,m a29
a29,m a30
a30,m a31
a31) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a21
-> m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a22
-> m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a23
-> m (a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a24
-> m (a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24 m (a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a25
-> m (a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a25
a25 m (a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a26
-> m (a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a26
a26 m (a27
-> a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a27
-> m (a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a27
a27 m (a28
-> a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a28
-> m (a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a28
a28 m (a29
-> a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a29
-> m (a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a29
a29 m (a30
-> a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a30
-> m (a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a30
a30 m (a31
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31))
-> m a31
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a31
a31
instance (Monad m) => SequenceT (m a1,m a2,m a3,m a4,m a5,m a6,m a7,m a8,m a9,m a10,m a11,m a12,m a13,m a14,m a15,m a16,m a17,m a18,m a19,m a20,m a21,m a22,m a23,m a24,m a25,m a26,m a27,m a28,m a29,m a30,m a31,m a32) (m (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32)) where sequenceT :: (m a1, m a2, m a3, m a4, m a5, m a6, m a7, m a8, m a9, m a10,
m a11, m a12, m a13, m a14, m a15, m a16, m a17, m a18, m a19,
m a20, m a21, m a22, m a23, m a24, m a25, m a26, m a27, m a28,
m a29, m a30, m a31, m a32)
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32)
sequenceT (m a1
a1,m a2
a2,m a3
a3,m a4
a4,m a5
a5,m a6
a6,m a7
a7,m a8
a8,m a9
a9,m a10
a10,m a11
a11,m a12
a12,m a13
a13,m a14
a14,m a15
a15,m a16
a16,m a17
a17,m a18
a18,m a19
a19,m a20
a20,m a21
a21,m a22
a22,m a23
a23,m a24
a24,m a25
a25,m a26
a26,m a27
a27,m a28
a28,m a29
a29,m a30
a30,m a31
a31,m a32
a32) = (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) m (a1
-> a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a1
-> m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a1
a1 m (a2
-> a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a2
-> m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a2
a2 m (a3
-> a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a3
-> m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a3
a3 m (a4
-> a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a4
-> m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a4
a4 m (a5
-> a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a5
-> m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a5
a5 m (a6
-> a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a6
-> m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a6
a6 m (a7
-> a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a7
-> m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a7
a7 m (a8
-> a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a8
-> m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a8
a8 m (a9
-> a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a9
-> m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a9
a9 m (a10
-> a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a10
-> m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a10
a10 m (a11
-> a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a11
-> m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a11
a11 m (a12
-> a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a12
-> m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a12
a12 m (a13
-> a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a13
-> m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a13
a13 m (a14
-> a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a14
-> m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a14
a14 m (a15
-> a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a15
-> m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a15
a15 m (a16
-> a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a16
-> m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a16
a16 m (a17
-> a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a17
-> m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a17
a17 m (a18
-> a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a18
-> m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a18
a18 m (a19
-> a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a19
-> m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a19
a19 m (a20
-> a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a20
-> m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a20
a20 m (a21
-> a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a21
-> m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a21
a21 m (a22
-> a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a22
-> m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a22
a22 m (a23
-> a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a23
-> m (a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a23
a23 m (a24
-> a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a24
-> m (a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a24
a24 m (a25
-> a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a25
-> m (a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a25
a25 m (a26
-> a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a26
-> m (a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a26
a26 m (a27
-> a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a27
-> m (a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a27
a27 m (a28
-> a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a28
-> m (a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a28
a28 m (a29
-> a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a29
-> m (a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a29
a29 m (a30
-> a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a30
-> m (a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a30
a30 m (a31
-> a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a31
-> m (a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a31
a31 m (a32
-> (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32))
-> m a32
-> m (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27,
a28, a29, a30, a31, a32)
forall (m :: * -> *) a b. Monad m => m (a -> b) -> m a -> m b
`ap` m a32
a32