carbonara (empty) → 0.0.1
raw patch · 17 files changed
+2166/−0 lines, 17 filesdep +basedep +mysql-simpledep +postgresql-simplesetup-changed
Dependencies added: base, mysql-simple, postgresql-simple, split, time
Files
- CHANGELOG.md +4/−0
- LICENSE +24/−0
- Setup.hs +2/−0
- carbonara.cabal +46/−0
- src/Control/Carbonara/Tools.hs +43/−0
- src/Control/Carbonara/Writer.hs +120/−0
- src/Data/Carbonara.hs +35/−0
- src/Data/Carbonara/Char.hs +22/−0
- src/Data/Carbonara/List.hs +12/−0
- src/Data/Carbonara/Maybe.hs +63/−0
- src/Data/Carbonara/Read.hs +153/−0
- src/Data/Carbonara/String.hs +32/−0
- src/Data/Carbonara/Time.hs +164/−0
- src/Data/Carbonara/Tuple.hs +740/−0
- src/Data/Carbonara/TupleInstance.hs +332/−0
- src/Database/Carbonara/MySQL.hs +3/−0
- src/Database/Carbonara/PostgreSQL.hs +371/−0
+ CHANGELOG.md view
@@ -0,0 +1,4 @@++0.0.1++* Initial release
+ LICENSE view
@@ -0,0 +1,24 @@+Copyright (c) 2017 Chris Sze+All rights reserved.++Redistribution and use in source and binary forms, with or without modification,+are permitted provided that the following conditions are met:+ * Redistributions of source code must retain the above copyright notice,+ this list of conditions and the following disclaimer.+ * Redistributions in binary form must reproduce the above copyright notice,+ this list of conditions and the following disclaimer in the documentation+ and/or other materials provided with the distribution.+ * Neither the name of Chris Sze nor the names of other contributors+ may be used to endorse or promote products derived from this software+ without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON+ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ carbonara.cabal view
@@ -0,0 +1,46 @@+name: carbonara+version: 0.0.1+license: BSD3+license-file: LICENSE+copyright: (c) Chris Sze+author: Chris Sze+maintainer: Chris Sze <cris@graduate.hku.hk>+bug-reports: mailto:cris@graduate.hku.hk+stability: stable+homepage: https://github.com/szehk/Haskell-Carbonara-Library+synopsis: some spaghetti code +category: System+cabal-version: >=1.10+build-type: Simple++Description: @carbonara@ is a set of handy tools for tuples, database++extra-source-files: CHANGELOG.md+source-repository head+ type: git+ location: https://github.com/szehk/Haskell-Carbonara-Library++library+ hs-source-dirs: src+ default-language: Haskell2010+ build-depends: + base >= 4.9.1 && < 10 ,+ mysql-simple >= 0.4.0,+ postgresql-simple >= 0.5.2 ,+ split >= 0.2.3 ,+ time >= 1.6.0+ exposed-modules:+ Control.Carbonara.Tools,+ Control.Carbonara.Writer,+ Data.Carbonara,+ Data.Carbonara.Char,+ Data.Carbonara.List,+ Data.Carbonara.Maybe,+ Data.Carbonara.Read,+ Data.Carbonara.String,+ Data.Carbonara.Time,+ Data.Carbonara.Tuple,+ Data.Carbonara.TupleInstance,+ Database.Carbonara.MySQL,+ Database.Carbonara.PostgreSQL+
+ src/Control/Carbonara/Tools.hs view
@@ -0,0 +1,43 @@+module Control.Carbonara.Tools where+++import Control.Exception ( SomeException(SomeException), try )+import Control.Monad (liftM2)++import Data.Time.Clock (diffUTCTime, getCurrentTime) --time+import Data.Typeable (typeOf)+++infixr 7 .&&. , .||.+++(.&&.) :: Monad m => m Bool -> m Bool -> m Bool+(.&&.) = liftM2 (&&) +-- filter (even .&&. (>5)) [1..10] --> [6,8,10] +-- filter (even .&&. (>5) .&&. (<9)) [1..10] --> [6,8] +++(.||.) :: Monad m => m Bool -> m Bool -> m Bool+(.||.) = liftM2 (||) +-- filter (even .||. (>5)) [1..10] --> [2,4,6,7,8,9,10] +-- filter (even .||. (>5) .||. (==1)) [1..10] --> [1,2,4,6,7,8,9,10] ++++++timer :: IO a -> IO ()+timer action = do+ start <- getCurrentTime+ action+ end <- getCurrentTime+ putStrLn $ show (end `diffUTCTime` start) ++ " elapsed."+--example: ghci> timer $ print [1..1000000]++trying :: IO () -> IO ()+trying x = do+ v <- try x+ case v of+ Right x -> return x+ Left (SomeException e) -> print (typeOf e) +--example: ghci> mapM_ (\x -> trying $ someIOactionX) [0..10]
+ src/Control/Carbonara/Writer.hs view
@@ -0,0 +1,120 @@+module Control.Carbonara.Writer where++import Data.Carbonara.String (replaceStrOnce)+import Data.List (intercalate)+import Data.List.Split (chunksOf) --split+++++++++-- | > incrementWord "(Show x)" 6 -> "(Show x1, Show x2, Show x3, Show x4, Show x5, Show x6)"+incrementWord :: String -> Int -> String+incrementWord str n = open_mark ++ (intercalate ", " $ zipWith (++) word_list num_list) ++ close_mark+ where word_list = replicate n . drop 1 . reverse . drop 1 . reverse $ str+ num_list = map show [1..n]+ open_mark = take 1 str+ close_mark = take 1 . reverse $ str+++-- | > repeatWord "(Nothing)" 5 -> "(Nothing, Nothing, Nothing, Nothing, Nothing)"+repeatWord :: String -> Int -> String+repeatWord str n = open_mark ++ (intercalate ", " word_list) ++ close_mark+ where word_list = replicate n . drop 1 . reverse . drop 1 . reverse $ str+ open_mark = take 1 str+ close_mark = take 1 . reverse $ str+ +++-- show_tuple function is in GHC.Show module but it does not export this function+show_tuple :: [ShowS] -> ShowS +show_tuple ss = showChar '('+ . foldr1 (\s r -> s . showChar ',' . r) ss+ . showChar ')'+++----------------------------------------------------------------------------------------------++-- compare Prelude Library Show instance+composeShowTuple :: Int -> String+composeShowTuple i = concat [ "\n-- | Show Tuple", i' + , "\ninstance ", incrementWord "(Show x)" i+ , "\n => Show ", incrementWord "(x)" i, " where"+ , "\n showsPrec _ ", incrementWord "(x)" i, " s"+ , "\n = show_tuple ", incrementWord "[shows x]" i, " s"+ , "\n\n" ]+ where i' = show i+++appendShowTuple :: FilePath -> IO ()+appendShowTuple path = mapM_ (\i-> appendFile path (composeShowTuple i)) [16..62]+-- ^ official pkg only have 1 to 15+-- max size is 62-tuple++++composeToRow :: Int -> String+composeToRow i = concat [ "\n-- | ToRow", i'+ , "\ninstance ", incrementWord "(ToField x)" i+ , "\n => ToRow ", incrementWord "(x)" i, " where"+ , "\n toRow ", incrementWord "(x)" i+ , "\n = ", incrementWord "[toField x]" i+ , "\n\n" ]+ where i' = show i++appendToRow :: FilePath -> IO ()+appendToRow path = mapM_ (\i -> appendFile path (composeToRow i)) [11..62] -- official pkg only have 1 to 10+++++composeListToTuple :: Int -> String+composeListToTuple i = concat [ "\n", "listToTuple", i', " :: [a] -> ", repeatWord "(Maybe a)" i+ , "\n", "listToTuple", i', " ", incrementWord "[x]" i, " ="+ , "\n", " ", incrementWord "(Just x)" i+ , "\n", "listToTuple", i', " _ = ", repeatWord "(Nothing)" i+ , "\n\n" ]+ where i' = show i++appendListToTuple :: FilePath -> IO ()+appendListToTuple path = mapM_ (\i -> appendFile path (composeListToTuple i)) [2..62] -- 2 to 62 +++composeTupleToList :: Int -> String+composeTupleToList i = concat [ "\n", "tupleToList", i', " :: ", incrementWord "(Show x)" i+ , "\n => ", incrementWord "(x)" i, " -> [Maybe String]"+ , "\n", "tupleToList", i', " ", incrementWord "(x)" i, " ="+ , "\n", " ", incrementWord "[readS x]" i+ , "\n\n" ]+ where i' = show i+++appendTupleToList :: FilePath -> IO ()+appendTupleToList path = mapM_ (\i -> appendFile path (composeTupleToList i)) [2..62] -- 2 to 62 ++++composeField :: Int -> Int -> String+composeField fieldnum i = concat+ [ "\n-- | Field", fieldstr, "_", i'+ , "\ninstance Field", fieldstr, " ", incrementWord "(x)" i, " "+ , replacex $ incrementWord "(x)" i, " ", xn, " ", xn', " where"+ , "\n _", fieldstr, " k ~", incrementWord "(x)" i, " ="+ , "\n ", "k ", xn, " <&> \\", xn', " -> "+ , replacex $ incrementWord "(x)" i+ , "\n\n" ]+ where i' = show i+ fieldstr = show fieldnum+ xn = "x" ++ fieldstr+ xn'= xn ++ "\'"+ replacex s = replaceStrOnce xn xn' s+++appendField :: FilePath -> Int -> IO ()+appendField path n = mapM_ (\i -> appendFile path (composeField n i)) [10..62] --official pkg has 1 to 9+++
+ src/Data/Carbonara.hs view
@@ -0,0 +1,35 @@+{- |++ This module re-exports the rest of the library++-}++module Data.Carbonara (+ module Control.Carbonara.Tools+ , module Control.Carbonara.Writer+ , module Data.Carbonara.List+ , module Data.Carbonara.Maybe+ , module Data.Carbonara.Read+ , module Data.Carbonara.String+ , module Data.Carbonara.Time+ , module Data.Carbonara.Tuple+ , module Data.Carbonara.TupleInstance+ , module Database.Carbonara.MySQL+ , module Database.Carbonara.PostgreSQL+ ) where+++import Control.Carbonara.Tools+import Control.Carbonara.Writer++import Data.Carbonara.List+import Data.Carbonara.Maybe+import Data.Carbonara.Read+import Data.Carbonara.String+import Data.Carbonara.Time+import Data.Carbonara.Tuple+import Data.Carbonara.TupleInstance++import Database.Carbonara.MySQL+import Database.Carbonara.PostgreSQL+
+ src/Data/Carbonara/Char.hs view
@@ -0,0 +1,22 @@+module Data.Carbonara.Char where++import Data.Char (isAlpha, isAlphaNum, isAscii, isDigit, isPunctuation, isSpace)++isNotAlpha :: Char -> Bool+isNotAlpha = not . isAlpha++isNotAlphaNum :: Char -> Bool+isNotAlphaNum = not . isAlphaNum++isNotAscii :: Char -> Bool+isNotAscii = not . isAscii++isNotDigit :: Char -> Bool+isNotDigit = not . isDigit++isNotPunctuation :: Char -> Bool+isNotPunctuation = not . isPunctuation++isNotSpace :: Char -> Bool+isNotSpace = not . isSpace+
+ src/Data/Carbonara/List.hs view
@@ -0,0 +1,12 @@+module Data.Carbonara.List where+++++notNull :: [a] -> Bool+notNull = not . null++replaceBy :: (a -> Bool) -> a -> [a] -> [a]+replaceBy f new xs = map (\x -> if f x then new else x) xs+-- | replaceBy (=='b') 'l' "book" --> "look"+-- | replaceBy (<0) 0 [-4,-5,7] --> [0,0,7]
+ src/Data/Carbonara/Maybe.hs view
@@ -0,0 +1,63 @@++module Data.Carbonara.Maybe where++import Data.Carbonara.Read (readD)+import Data.Maybe (fromJust, isJust, listToMaybe)++++infix 4 ^<^, ^<=^, ^>^, ^>=^+infixl 6 ^+^, ^-^+infixl 7 ^*^, ^/^+infixr 8 ^**^+infixl 9 !?+++ +-- | zero-based index+-- > [1..10] !? 1 --> Just 2 +-- > [1..10] !? 15 --> Nothing+(!?) :: [a] -> Int -> Maybe a+(!?) xs n = listToMaybe $ drop n xs +++-- The two type must be separate, otherwise it will be inpossbile to calculate two different types+(^+^) :: (Show a, Show b) => a -> b -> Maybe Double+(^+^) x y = calcMaybeString (+) x y++(^-^) :: (Show a, Show b) => a -> b -> Maybe Double+(^-^) x y = calcMaybeString (-) x y++(^*^) :: (Show a, Show b) => a -> b -> Maybe Double+(^*^) x y = calcMaybeString (*) x y++(^/^) :: (Show a, Show b) => a -> b -> Maybe Double+(^/^) x y = calcMaybeString (/) x y++(^**^) :: (Show a, Show b) => a -> b -> Maybe Double+(^**^) x y = calcMaybeString (**) x y+++(^>^) :: (Show a, Show b) => a -> b -> Maybe Bool+(^>^) x y = calcMaybeString (>) x y++(^>=^) :: (Show a, Show b) => a -> b -> Maybe Bool+(^>=^) x y = calcMaybeString (>=) x y++(^<^) :: (Show a, Show b) => a -> b -> Maybe Bool+(^<^) x y = calcMaybeString (<) x y++(^<=^) :: (Show a, Show b) => a -> b -> Maybe Bool+(^<=^) x y = calcMaybeString (<=) x y+++calcMaybeString :: (Show a, Show b) => (Double -> Double -> c) -> a -> b -> Maybe c+calcMaybeString f x y = Just f <*> readD x <*> readD y+-- ^ > calcMaybeString (*) (Just "5") (Just "3") --> Just 15.0+++justs :: [Maybe a] -> [a]+justs = map fromJust . filter isJust+-- ^ justs [Just 1, Nothing, Just 3, Just 5] --> [1,3,5]++
+ src/Data/Carbonara/Read.hs view
@@ -0,0 +1,153 @@+module Data.Carbonara.Read where++import Data.Carbonara.Char (isNotDigit) --carbonara+import Data.Carbonara.String (replaceStrOnce) +++import Data.Char (isDigit, toLower, toUpper)+import Data.Maybe (fromJust, isJust)+import Data.Time.Calendar (Day, fromGregorian) --time++import Text.Printf (printf)+import Text.Read (readMaybe)++import Data.List (intercalate)+import Data.List.Split (chunksOf) --split+++++readB :: Show a => a -> Maybe Bool+readB x + | take 5 str `elem` ["just ", "right"] = readMaybe $ drop 5 str+ | otherwise = readMaybe str+ where str = replaceStrOnce "true" "True" . replaceStrOnce "false" "False" .+ map toLower . filter (`notElem` ['"','\'']) . show $ x+-- Test cases:+-- Just True : from these input: True, "True", " TRUE", " 'true' ", Just True, Just "tURe", Right True", Right "\'true" +-- Just False : from all input: False, "False", " 'FALSE", "faLSe ", Just False, Just "false ", Right "FALSe", Right "'false" +-- Nothing : from all input: Nothing, "Tr ue", "Fal se", Just "T RUE", Right "falsee" +++readC :: Show a => a -> Maybe Char+readC x+ | show x `elem` ["'\\''" , "\"'\"" , "Just '\\''" , "Just \"'\"" , "Right '\\''", "Right \"'\""] = Just '\''+ | show x `elem` ["'\"'" , "Just '\"'" , "Right '\"'" , "\"\\\"\"" , "Just \"\\\"\"" , "Right \"\\\"\"" ] = Just '"'+ | take 5 str == "Just " = readMaybe . addSingleQuote . drop 5 $ str+ | take 6 str == "Right " = readMaybe . addSingleQuote . drop 6 $ str+ | otherwise = readMaybe . addSingleQuote $ str+ where str = filter (`notElem` ['"','\'']) . show $ x+ addSingleQuote s = ('\'':s) ++ "\'"+++readD :: Show a => a -> Maybe Double+readD x+ | take 5 s == "Just " = readD . drop 5 $ s+ | take 6 s == "Right " = readD . drop 6 $ s+ | take 1 s == "." = readMaybe ('0': s)+ | take 2 s == "-." = readMaybe . ("-0" ++) . drop 1 $ s+ | otherwise = readMaybe s+ where s = filter (`notElem` ['\\', '"', '\'', ',', '%', '+', '$', '¢', '£', '¥', '€']) . show $ x+++readDMY :: Show a => a -> Maybe Day+readDMY x+ | isJust y && isJust m && isJust d = Just $ fromGregorian (fromJust y) (fromJust m) (fromJust d)+ | otherwise = Nothing+ where s = dropWhile isNotDigit . show $ x+ d = readInt . takeWhile isDigit $ s+ m = readInt . takeWhile isDigit . dropWhile isNotDigit . dropWhile isDigit $ s+ y = readI . takeWhile isDigit . dropWhile isNotDigit . dropWhile isDigit .+ dropWhile isNotDigit . dropWhile isDigit $ s++readMDY :: Show a => a -> Maybe Day+readMDY x+ | isJust y && isJust m && isJust d = Just $ fromGregorian (fromJust y) (fromJust m) (fromJust d)+ | otherwise = Nothing+ where s = dropWhile isNotDigit . show $ x+ m = readInt . takeWhile isDigit $ s+ d = readInt . takeWhile isDigit . dropWhile isNotDigit . dropWhile isDigit $ s+ y = readI . takeWhile isDigit . dropWhile isNotDigit . dropWhile isDigit .+ dropWhile isNotDigit . dropWhile isDigit $ s+++readYMD :: Show a => a -> Maybe Day+readYMD x+ | isJust y && isJust m && isJust d = Just $ fromGregorian (fromJust y) (fromJust m) (fromJust d)+ | otherwise = Nothing+ where s = dropWhile isNotDigit . show $ x+ y = readI . takeWhile isDigit $ s+ m = readInt . takeWhile isDigit . dropWhile isNotDigit . dropWhile isDigit $ s+ d = readInt . takeWhile isDigit . dropWhile isNotDigit . dropWhile isDigit .+ dropWhile isNotDigit . dropWhile isDigit $ s+++++++readDStr :: Show a => a -> Maybe String+readDStr x = Just (++) <*> integer_part <*> decimal_part+ where s = printf "%.2f" <$> readD x+ integer_part = reverse . intercalate "," . chunksOf 3 . reverse . takeWhile (/= '.') <$> s+ decimal_part = dropWhile (/= '.') <$> s +-- | with 2 decimal place+++readI :: Show a => a -> Maybe Integer+readI x+ | take 5 s `elem` ["Just ", "Right"] = readMaybe . drop 5 $ s+ | otherwise = readMaybe s+ where s = filter (`notElem` ['\\', '"', '\'', ',', '%', '+', '$', '¢', '£', '¥', '€']) . show $ x++++readInt :: Show a => a -> Maybe Int+readInt x+ | take 5 s `elem` ["Just ", "Right"] = readMaybe . drop 5 $ s+ | otherwise = readMaybe s+ where s = filter (`notElem` ['\\', '"', '\'', ',', '%', '+', '$', '¢', '£', '¥', '€']) . show $ x++ +readIStr :: Show a => a -> Maybe String+readIStr x = integer_part+ where s = printf "%.0f" <$> readD x+ integer_part = reverse . intercalate "," . chunksOf 3 . reverse <$> s++++readLargeNum :: Show a => a -> Maybe Double+readLargeNum x+ | take 5 s == "Just " = readLargeNum . drop 5 $ s+ | take 6 s == "Right " = readLargeNum . drop 6 $ s+ | lastchar == "M" = (*1000000) <$> readMaybe (init s)+ | lastchar == "B" = (*1000000000) <$> readMaybe (init s)+ | lastchar == "T" = (*1000000000000) <$> readMaybe (init s)+ | otherwise = Nothing+ where s = filter (`notElem` ['\\', '"', '\'', ',', '%', '+', '$', '¢', '£', '¥', '€']) . show $ x+ lastchar = map toUpper . take 1 . reverse $ s+++readS :: Show a => a -> Maybe String+readS x+ | s == "Nothing" = Nothing+ | take 5 s == "Just " = readMaybe . addDoubleQuote . drop 5 $ s+ | take 6 s == "Right " = readMaybe . addDoubleQuote . drop 6 $ s+ | otherwise = readMaybe . addDoubleQuote $ s+ where s = filter (`notElem` ['"', '\'', ',', '%', '+', '$', '¢', '£', '¥', '€', '\\', '[', ']']) . show $ x+ addDoubleQuote s = ('"':s) ++ ['"']+++++++++++++++
+ src/Data/Carbonara/String.hs view
@@ -0,0 +1,32 @@+module Data.Carbonara.String where++++replaceStr :: String -> String -> String -> String+replaceStr from to s+ | null from || null s = s -- if "from" is empty, there will be error+ | index == length strings = s+ | otherwise = (take index s) ++ to ++ (replaceStr from to $ drop (index + l_from) s)+ where l_from = length from+ l_to = length to+ l_s = length s+ strings = map (\i -> take l_from $ drop i s ) [0 .. (l_s - l_from)]+ -- | if l_from is 0, the string length will be $+ index = length $ takeWhile (/= from) strings+-- | ghci> replaceStr "true" "TRUE" "true love true" --> "TRUE love TRUE"+-- | ghci> replaceStr "$" "USD" "$20 $25" --> "USD20 USD25"+++replaceStrOnce :: String -> String -> String -> String+replaceStrOnce from to s+ | null from || null s = s -- if "from" is empty, there will be error+ | index == length strings = s+ | otherwise = concat [ take index s, to, drop (index + l_from) s] + where l_from = length from+ l_to = length to+ l_s = length s+ strings = map (\i -> take l_from $ drop i s ) [0 .. (l_s - l_from)]+ -- | if l_from is 0, the string length will be larger + index = length $ takeWhile (/= from) strings +-- | ghci> replaceStrOnce "true" "TRUE" "true love true" --> "TRUE love true"+-- | ghci> replaceStrOnce "$" "USD" "$20 $25" --> "USD20 $25"
+ src/Data/Carbonara/Time.hs view
@@ -0,0 +1,164 @@+module Data.Carbonara.Time where + +import Data.Char (isDigit) +import Data.Time.Calendar (addDays, Day, fromGregorian, toGregorian, toModifiedJulianDay) --time +import Data.Time.Calendar.Easter (gregorianEaster) +import Data.Time.Clock (getCurrentTime, utctDay) + + +addTradeDays :: Integral i => i -> Day -> Day +addTradeDays n day + | n == 0 = day + | n > 0 = nextTradeDay $ addTradeDays (n - 1) day + | n < 0 = previousTradeDay $ addTradeDays (n + 1) day + +-- eg dayToString (fromGregorian 2016 3 14) --> "20160314" +dayToStr :: Day -> String +dayToStr = filter (isDigit) . show + +-- diffDays (fromGregorian 1970 1 1) (fromGregorian 1858 11 17) is 40587; 1 day has 86400 seconds +-- compare: unixtimeToDay +dayToUnixtime :: Day -> Integer +dayToUnixtime day = (toModifiedJulianDay day - 40587) * 86400 + + +fg :: Integer -> Int -> Int -> Day +fg = fromGregorian + + + +getDay :: Day -> Int +getDay day = d where (_,_,d) = toGregorian day + +getMonth :: Day -> Int +getMonth day = m where (_,m,_) = toGregorian day + +getYear :: Day -> Integer +getYear day = y where (y,_,_) = toGregorian day + +-- This is the current GMT day +getToday :: IO Day +getToday = utctDay <$> getCurrentTime + +getTradeDate :: IO Day +getTradeDate = previousTradeDay <$> getToday + + +-- Years Day might be Saturady and falls into 31 Dec 2010 +-- https://www.opm.gov/policy-data-oversight/snow-dismissal-procedures/federal-holidays/ +-- this is actually CME Exchange Holiday, which includes Good Friday, while Federal holiday not +getExchangeHolidays :: Integer -> [Day] +getExchangeHolidays year + | nextYearJan1isSat = thisYearExchangeHolidays ++ [fg year 12 31] + | otherwise = thisYearExchangeHolidays + where nextYearJan1isSat = isSaturday $ fg (year + 1) 1 1 + thisYearExchangeHolidays = [holidayNewYears year, holidayMartinLuther year, holidayWashington year, + holidayGoodFriday year, holidayMemorial year, holidayIndependence year, holidayLabor year, holidayColumbus year, + holidayVeterans year, holidayThanksgiving year, holidayChristmas year] + + + +-- New Year's Day is fixed at January 1st, falls to Dec 31 if Saturday +holidayNewYears :: Integer -> Day +holidayNewYears year + | isSaturday jan1 = pred $ jan1 + | isSunday jan1 = fromGregorian year 1 2 + | otherwise = jan1 + where jan1 = fromGregorian year 1 1 + +-- Martin Luther Day is the third Monday in January +holidayMartinLuther :: Integer -> Day +holidayMartinLuther year = nextMonday (fromGregorian year 1 14) + +-- Presidents' Day is the third Monday in February +holidayWashington :: Integer -> Day +holidayWashington year = nextMonday (fromGregorian year 2 14) + +-- Good Friday is observed by CME, though it is not a US Federal Holiday +holidayGoodFriday :: Integer -> Day +holidayGoodFriday year = lastFriday $ gregorianEaster year + + +-- Memorial Day is the last Monday in May +holidayMemorial :: Integer -> Day +holidayMemorial year = lastMonday (fromGregorian year 6 1) + +-- Independence Day is fixed at July 4th +holidayIndependence :: Integer -> Day +holidayIndependence year + | isSaturday july4 = fromGregorian year 7 3 + | isSunday july4 = fromGregorian year 7 5 + | otherwise = july4 + where july4 = fromGregorian year 7 4 + +-- Labor Day is the first Monday in September +holidayLabor :: Integer -> Day +holidayLabor year = nextMonday (fromGregorian year 8 31) + +-- Columbus Day is the second Monday in October +holidayColumbus :: Integer -> Day +holidayColumbus year = nextMonday (fromGregorian year 10 7) + +-- Veterans Day is fixed at November 11th +holidayVeterans :: Integer -> Day +holidayVeterans year + | isSaturday nov11 = fromGregorian year 11 10 + | isSunday nov11 = fromGregorian year 11 12 + | otherwise = nov11 + where nov11 = fromGregorian year 11 11 + +-- Thanksgiving Day is the fourth Thursday in November +holidayThanksgiving :: Integer -> Day +holidayThanksgiving year = nextThursday (fromGregorian year 11 21) + +-- Christmas Day is fixed at December 25th +holidayChristmas :: Integer -> Day +holidayChristmas year + | isSaturday dec25 = fromGregorian year 12 24 + | isSunday dec25 = fromGregorian year 12 26 + | otherwise = dec25 + where dec25 = fromGregorian year 12 25 + + +isWednesday,isThursday,isFriday,isSaturday,isSunday,isMonday,isTuesday :: Day -> Bool +[isWednesday,isThursday,isFriday,isSaturday,isSunday,isMonday,isTuesday] = [isDay i | i <- [0 .. 6]] + where isDay :: Integer -> Day -> Bool + isDay i day = toModifiedJulianDay day `mod` 7 == i + +-- Years Day might be Saturady and falls into 31 Dec 2010 +isExchangeHoliday :: Day -> Bool +isExchangeHoliday day = day `elem` (getExchangeHolidays $ getYear day) + +isTradeDay :: Day -> Bool +isTradeDay day = not (isSunday day || isSaturday day || isExchangeHoliday day) + +isWeekday :: Day -> Bool +isWeekday day = not (isSaturday day || isSunday day) + + +lastTuesday,lastMonday,lastSunday,lastSaturday,lastFriday,lastThursday,lastWednesday :: Day -> Day +[lastTuesday,lastMonday,lastSunday,lastSaturday,lastFriday,lastThursday,lastWednesday] = [lastDay i | i <- [0 .. 6]] + where lastDay :: Integer -> Day -> Day + lastDay i day = addDays ((negate $ (toModifiedJulianDay day + i) `mod` 7) - 1) day + +nextWednesday,nextTuesday,nextMonday,nextSunday,nextSaturday,nextFriday,nextThursday :: Day -> Day +[nextWednesday,nextTuesday,nextMonday,nextSunday,nextSaturday,nextFriday,nextThursday] = [nextDay i | i <- [0 .. 6]] + where nextDay :: Integer -> Day -> Day + nextDay i day = addDays (7 - (toModifiedJulianDay day + i) `mod` 7) day + + +nextTradeDay :: Day -> Day +nextTradeDay day + | isTradeDay tomorrow = tomorrow + | otherwise = nextTradeDay tomorrow + where tomorrow = succ day + +previousTradeDay :: Day -> Day +previousTradeDay day + | isTradeDay yesterday = yesterday + | otherwise = previousTradeDay yesterday + where yesterday = pred day + +-- 1 day has 86400 seconds +unixtimeToDay :: Integer -> Day +unixtimeToDay i = addDays (i `div` 86400) (fromGregorian 1970 1 1)
+ src/Data/Carbonara/Tuple.hs view
@@ -0,0 +1,740 @@+module Data.Carbonara.Tuple where++import Data.Carbonara.Read (readS)+++++++tupleToList2 :: (Show x1, Show x2)+ => (x1, x2) -> [Maybe String]+tupleToList2 (x1, x2) =+ [readS x1, readS x2]+++tupleToList3 :: (Show x1, Show x2, Show x3)+ => (x1, x2, x3) -> [Maybe String]+tupleToList3 (x1, x2, x3) =+ [readS x1, readS x2, readS x3]+++tupleToList4 :: (Show x1, Show x2, Show x3, Show x4)+ => (x1, x2, x3, x4) -> [Maybe String]+tupleToList4 (x1, x2, x3, x4) =+ [readS x1, readS x2, readS x3, readS x4]+++tupleToList5 :: (Show x1, Show x2, Show x3, Show x4, Show x5)+ => (x1, x2, x3, x4, x5) -> [Maybe String]+tupleToList5 (x1, x2, x3, x4, x5) =+ [readS x1, readS x2, readS x3, readS x4, readS x5]+++tupleToList6 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6)+ => (x1, x2, x3, x4, x5, x6) -> [Maybe String]+tupleToList6 (x1, x2, x3, x4, x5, x6) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6]+++tupleToList7 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7)+ => (x1, x2, x3, x4, x5, x6, x7) -> [Maybe String]+tupleToList7 (x1, x2, x3, x4, x5, x6, x7) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7]+++tupleToList8 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8)+ => (x1, x2, x3, x4, x5, x6, x7, x8) -> [Maybe String]+tupleToList8 (x1, x2, x3, x4, x5, x6, x7, x8) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8]+++tupleToList9 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9) -> [Maybe String]+tupleToList9 (x1, x2, x3, x4, x5, x6, x7, x8, x9) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9]+++tupleToList10 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10) -> [Maybe String]+tupleToList10 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10]+++tupleToList11 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11) -> [Maybe String]+tupleToList11 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11]+++tupleToList12 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12) -> [Maybe String]+tupleToList12 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12]+++tupleToList13 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13) -> [Maybe String]+tupleToList13 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13]+++tupleToList14 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14) -> [Maybe String]+tupleToList14 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14]+++tupleToList15 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15) -> [Maybe String]+tupleToList15 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15]+++tupleToList16 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16) -> [Maybe String]+tupleToList16 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16]+++tupleToList17 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17) -> [Maybe String]+tupleToList17 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17]+++tupleToList18 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18) -> [Maybe String]+tupleToList18 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18]+++tupleToList19 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19) -> [Maybe String]+tupleToList19 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19]+++tupleToList20 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20) -> [Maybe String]+tupleToList20 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20]+++tupleToList21 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21) -> [Maybe String]+tupleToList21 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21]+++tupleToList22 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22) -> [Maybe String]+tupleToList22 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22]+++tupleToList23 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23) -> [Maybe String]+tupleToList23 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23]+++tupleToList24 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24) -> [Maybe String]+tupleToList24 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24]+++tupleToList25 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25) -> [Maybe String]+tupleToList25 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25]+++tupleToList26 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26) -> [Maybe String]+tupleToList26 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26]+++tupleToList27 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27) -> [Maybe String]+tupleToList27 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27]+++tupleToList28 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28) -> [Maybe String]+tupleToList28 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28]+++tupleToList29 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29) -> [Maybe String]+tupleToList29 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29]+++tupleToList30 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30) -> [Maybe String]+tupleToList30 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30]+++tupleToList31 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31) -> [Maybe String]+tupleToList31 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31]+++tupleToList32 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32) -> [Maybe String]+tupleToList32 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32]+++tupleToList33 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33) -> [Maybe String]+tupleToList33 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33]+++tupleToList34 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34) -> [Maybe String]+tupleToList34 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34]+++tupleToList35 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35) -> [Maybe String]+tupleToList35 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35]+++tupleToList36 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36) -> [Maybe String]+tupleToList36 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36]+++tupleToList37 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37) -> [Maybe String]+tupleToList37 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37]+++tupleToList38 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38) -> [Maybe String]+tupleToList38 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38]+++tupleToList39 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39) -> [Maybe String]+tupleToList39 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39]+++tupleToList40 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40) -> [Maybe String]+tupleToList40 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40]+++tupleToList41 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41) -> [Maybe String]+tupleToList41 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41]+++tupleToList42 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42) -> [Maybe String]+tupleToList42 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42]+++tupleToList43 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43) -> [Maybe String]+tupleToList43 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43]+++tupleToList44 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44) -> [Maybe String]+tupleToList44 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44]+++tupleToList45 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45) -> [Maybe String]+tupleToList45 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45]+++tupleToList46 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46) -> [Maybe String]+tupleToList46 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46]+++tupleToList47 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47) -> [Maybe String]+tupleToList47 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47]+++tupleToList48 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48) -> [Maybe String]+tupleToList48 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48]+++tupleToList49 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49) -> [Maybe String]+tupleToList49 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49]+++tupleToList50 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50) -> [Maybe String]+tupleToList50 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50]+++tupleToList51 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51) -> [Maybe String]+tupleToList51 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51]+++tupleToList52 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52) -> [Maybe String]+tupleToList52 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52]+++tupleToList53 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53) -> [Maybe String]+tupleToList53 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53]+++tupleToList54 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54) -> [Maybe String]+tupleToList54 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54]+++tupleToList55 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55) -> [Maybe String]+tupleToList55 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54, readS x55]+++tupleToList56 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56) -> [Maybe String]+tupleToList56 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54, readS x55, readS x56]+++tupleToList57 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57) -> [Maybe String]+tupleToList57 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54, readS x55, readS x56, readS x57]+++tupleToList58 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58) -> [Maybe String]+tupleToList58 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54, readS x55, readS x56, readS x57, readS x58]+++tupleToList59 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58, Show x59)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59) -> [Maybe String]+tupleToList59 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54, readS x55, readS x56, readS x57, readS x58, readS x59]+++tupleToList60 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58, Show x59, Show x60)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60) -> [Maybe String]+tupleToList60 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54, readS x55, readS x56, readS x57, readS x58, readS x59, readS x60]+++tupleToList61 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58, Show x59, Show x60, Show x61)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61) -> [Maybe String]+tupleToList61 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54, readS x55, readS x56, readS x57, readS x58, readS x59, readS x60, readS x61]+++tupleToList62 :: (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58, Show x59, Show x60, Show x61, Show x62)+ => (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61, x62) -> [Maybe String]+tupleToList62 (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61, x62) =+ [readS x1, readS x2, readS x3, readS x4, readS x5, readS x6, readS x7, readS x8, readS x9, readS x10, readS x11, readS x12, readS x13, readS x14, readS x15, readS x16, readS x17, readS x18, readS x19, readS x20, readS x21, readS x22, readS x23, readS x24, readS x25, readS x26, readS x27, readS x28, readS x29, readS x30, readS x31, readS x32, readS x33, readS x34, readS x35, readS x36, readS x37, readS x38, readS x39, readS x40, readS x41, readS x42, readS x43, readS x44, readS x45, readS x46, readS x47, readS x48, readS x49, readS x50, readS x51, readS x52, readS x53, readS x54, readS x55, readS x56, readS x57, readS x58, readS x59, readS x60, readS x61, readS x62]+++listToTuple2 :: [a] -> (Maybe a, Maybe a)+listToTuple2 [x1, x2] =+ (Just x1, Just x2)+listToTuple2 _ = (Nothing, Nothing)+++listToTuple3 :: [a] -> (Maybe a, Maybe a, Maybe a)+listToTuple3 [x1, x2, x3] =+ (Just x1, Just x2, Just x3)+listToTuple3 _ = (Nothing, Nothing, Nothing)+++listToTuple4 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple4 [x1, x2, x3, x4] =+ (Just x1, Just x2, Just x3, Just x4)+listToTuple4 _ = (Nothing, Nothing, Nothing, Nothing)+++listToTuple5 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple5 [x1, x2, x3, x4, x5] =+ (Just x1, Just x2, Just x3, Just x4, Just x5)+listToTuple5 _ = (Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple6 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple6 [x1, x2, x3, x4, x5, x6] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6)+listToTuple6 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple7 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple7 [x1, x2, x3, x4, x5, x6, x7] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7)+listToTuple7 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple8 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple8 [x1, x2, x3, x4, x5, x6, x7, x8] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8)+listToTuple8 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple9 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple9 [x1, x2, x3, x4, x5, x6, x7, x8, x9] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9)+listToTuple9 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple10 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple10 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10)+listToTuple10 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple11 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple11 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11)+listToTuple11 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple12 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple12 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12)+listToTuple12 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple13 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple13 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13)+listToTuple13 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple14 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple14 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14)+listToTuple14 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple15 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple15 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15)+listToTuple15 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple16 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple16 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16)+listToTuple16 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple17 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple17 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17)+listToTuple17 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple18 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple18 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18)+listToTuple18 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple19 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple19 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19)+listToTuple19 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple20 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple20 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20)+listToTuple20 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple21 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple21 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21)+listToTuple21 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple22 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple22 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22)+listToTuple22 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple23 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple23 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23)+listToTuple23 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple24 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple24 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24)+listToTuple24 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple25 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple25 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25)+listToTuple25 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple26 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple26 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26)+listToTuple26 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple27 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple27 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27)+listToTuple27 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple28 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple28 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28)+listToTuple28 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple29 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple29 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29)+listToTuple29 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple30 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple30 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30)+listToTuple30 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple31 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple31 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31)+listToTuple31 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple32 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple32 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32)+listToTuple32 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple33 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple33 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33)+listToTuple33 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple34 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple34 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34)+listToTuple34 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple35 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple35 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35)+listToTuple35 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple36 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple36 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36)+listToTuple36 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple37 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple37 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37)+listToTuple37 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple38 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple38 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38)+listToTuple38 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple39 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple39 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39)+listToTuple39 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple40 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple40 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40)+listToTuple40 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple41 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple41 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41)+listToTuple41 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple42 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple42 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42)+listToTuple42 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple43 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple43 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43)+listToTuple43 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple44 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple44 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44)+listToTuple44 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple45 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple45 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45)+listToTuple45 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple46 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple46 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46)+listToTuple46 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple47 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple47 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47)+listToTuple47 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple48 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple48 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48)+listToTuple48 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple49 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple49 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49)+listToTuple49 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple50 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple50 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50)+listToTuple50 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple51 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple51 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51)+listToTuple51 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple52 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple52 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52)+listToTuple52 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple53 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple53 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53)+listToTuple53 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple54 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple54 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54)+listToTuple54 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple55 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple55 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54, Just x55)+listToTuple55 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple56 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple56 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54, Just x55, Just x56)+listToTuple56 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple57 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple57 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54, Just x55, Just x56, Just x57)+listToTuple57 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple58 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple58 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54, Just x55, Just x56, Just x57, Just x58)+listToTuple58 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple59 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple59 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54, Just x55, Just x56, Just x57, Just x58, Just x59)+listToTuple59 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple60 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple60 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54, Just x55, Just x56, Just x57, Just x58, Just x59, Just x60)+listToTuple60 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple61 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple61 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54, Just x55, Just x56, Just x57, Just x58, Just x59, Just x60, Just x61)+listToTuple61 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+++listToTuple62 :: [a] -> (Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a, Maybe a)+listToTuple62 [x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61, x62] =+ (Just x1, Just x2, Just x3, Just x4, Just x5, Just x6, Just x7, Just x8, Just x9, Just x10, Just x11, Just x12, Just x13, Just x14, Just x15, Just x16, Just x17, Just x18, Just x19, Just x20, Just x21, Just x22, Just x23, Just x24, Just x25, Just x26, Just x27, Just x28, Just x29, Just x30, Just x31, Just x32, Just x33, Just x34, Just x35, Just x36, Just x37, Just x38, Just x39, Just x40, Just x41, Just x42, Just x43, Just x44, Just x45, Just x46, Just x47, Just x48, Just x49, Just x50, Just x51, Just x52, Just x53, Just x54, Just x55, Just x56, Just x57, Just x58, Just x59, Just x60, Just x61, Just x62)+listToTuple62 _ = (Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)+
+ src/Data/Carbonara/TupleInstance.hs view
@@ -0,0 +1,332 @@+module Data.Carbonara.TupleInstance where++import Control.Carbonara.Writer (show_tuple)++-- | Show Tuple16+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16] s+++-- | Show Tuple17+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17] s+++-- | Show Tuple18+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18] s+++-- | Show Tuple19+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19] s+++-- | Show Tuple20+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20] s+++-- | Show Tuple21+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21] s+++-- | Show Tuple22+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22] s+++-- | Show Tuple23+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23] s+++-- | Show Tuple24+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24] s+++-- | Show Tuple25+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25] s+++-- | Show Tuple26+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26] s+++-- | Show Tuple27+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27] s+++-- | Show Tuple28+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28] s+++-- | Show Tuple29+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29] s+++-- | Show Tuple30+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30] s+++-- | Show Tuple31+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31] s+++-- | Show Tuple32+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32] s+++-- | Show Tuple33+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33] s+++-- | Show Tuple34+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34] s+++-- | Show Tuple35+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35] s+++-- | Show Tuple36+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36] s+++-- | Show Tuple37+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37] s+++-- | Show Tuple38+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38] s+++-- | Show Tuple39+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39] s+++-- | Show Tuple40+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40] s+++-- | Show Tuple41+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41] s+++-- | Show Tuple42+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42] s+++-- | Show Tuple43+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43] s+++-- | Show Tuple44+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44] s+++-- | Show Tuple45+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45] s+++-- | Show Tuple46+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46] s+++-- | Show Tuple47+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47] s+++-- | Show Tuple48+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48] s+++-- | Show Tuple49+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49] s+++-- | Show Tuple50+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50] s+++-- | Show Tuple51+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51] s+++-- | Show Tuple52+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52] s+++-- | Show Tuple53+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53] s+++-- | Show Tuple54+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54] s+++-- | Show Tuple55+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54, shows x55] s+++-- | Show Tuple56+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54, shows x55, shows x56] s+++-- | Show Tuple57+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54, shows x55, shows x56, shows x57] s+++-- | Show Tuple58+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54, shows x55, shows x56, shows x57, shows x58] s+++-- | Show Tuple59+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58, Show x59)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54, shows x55, shows x56, shows x57, shows x58, shows x59] s+++-- | Show Tuple60+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58, Show x59, Show x60)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54, shows x55, shows x56, shows x57, shows x58, shows x59, shows x60] s+++-- | Show Tuple61+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58, Show x59, Show x60, Show x61)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54, shows x55, shows x56, shows x57, shows x58, shows x59, shows x60, shows x61] s+++-- | Show Tuple62+instance (Show x1, Show x2, Show x3, Show x4, Show x5, Show x6, Show x7, Show x8, Show x9, Show x10, Show x11, Show x12, Show x13, Show x14, Show x15, Show x16, Show x17, Show x18, Show x19, Show x20, Show x21, Show x22, Show x23, Show x24, Show x25, Show x26, Show x27, Show x28, Show x29, Show x30, Show x31, Show x32, Show x33, Show x34, Show x35, Show x36, Show x37, Show x38, Show x39, Show x40, Show x41, Show x42, Show x43, Show x44, Show x45, Show x46, Show x47, Show x48, Show x49, Show x50, Show x51, Show x52, Show x53, Show x54, Show x55, Show x56, Show x57, Show x58, Show x59, Show x60, Show x61, Show x62)+ => Show (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61, x62) where+ showsPrec _ (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61, x62) s+ = show_tuple [shows x1, shows x2, shows x3, shows x4, shows x5, shows x6, shows x7, shows x8, shows x9, shows x10, shows x11, shows x12, shows x13, shows x14, shows x15, shows x16, shows x17, shows x18, shows x19, shows x20, shows x21, shows x22, shows x23, shows x24, shows x25, shows x26, shows x27, shows x28, shows x29, shows x30, shows x31, shows x32, shows x33, shows x34, shows x35, shows x36, shows x37, shows x38, shows x39, shows x40, shows x41, shows x42, shows x43, shows x44, shows x45, shows x46, shows x47, shows x48, shows x49, shows x50, shows x51, shows x52, shows x53, shows x54, shows x55, shows x56, shows x57, shows x58, shows x59, shows x60, shows x61, shows x62] s+
+ src/Database/Carbonara/MySQL.hs view
@@ -0,0 +1,3 @@+module Database.Carbonara.MySQL where++
+ src/Database/Carbonara/PostgreSQL.hs view
@@ -0,0 +1,371 @@+module Database.Carbonara.PostgreSQL where++import Database.PostgreSQL.Simple.ToField (toField, ToField)+import Database.PostgreSQL.Simple.ToRow (toRow, ToRow)+++++-- | ToRow11+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11]+++-- | ToRow12+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12]+++-- | ToRow13+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13]+++-- | ToRow14+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14]+++-- | ToRow15+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15]+++-- | ToRow16+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16]+++-- | ToRow17+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17]+++-- | ToRow18+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18]+++-- | ToRow19+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19]+++-- | ToRow20+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20]+++-- | ToRow21+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21]+++-- | ToRow22+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22]+++-- | ToRow23+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23]+++-- | ToRow24+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24]+++-- | ToRow25+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25]+++-- | ToRow26+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26]+++-- | ToRow27+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27]+++-- | ToRow28+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28]+++-- | ToRow29+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29]+++-- | ToRow30+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30]+++-- | ToRow31+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31]+++-- | ToRow32+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32]+++-- | ToRow33+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33]+++-- | ToRow34+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34]+++-- | ToRow35+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35]+++-- | ToRow36+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36]+++-- | ToRow37+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37]+++-- | ToRow38+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38]+++-- | ToRow39+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39]+++-- | ToRow40+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40]+++-- | ToRow41+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41]+++-- | ToRow42+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42]+++-- | ToRow43+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43]+++-- | ToRow44+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44]+++-- | ToRow45+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45]+++-- | ToRow46+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46]+++-- | ToRow47+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47]+++-- | ToRow48+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48]+++-- | ToRow49+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49]+++-- | ToRow50+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50]+++-- | ToRow51+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51]+++-- | ToRow52+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52]+++-- | ToRow53+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53]+++-- | ToRow54+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54]+++-- | ToRow55+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54, ToField x55)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54, toField x55]+++-- | ToRow56+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54, ToField x55, ToField x56)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54, toField x55, toField x56]+++-- | ToRow57+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54, ToField x55, ToField x56, ToField x57)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54, toField x55, toField x56, toField x57]+++-- | ToRow58+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54, ToField x55, ToField x56, ToField x57, ToField x58)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54, toField x55, toField x56, toField x57, toField x58]+++-- | ToRow59+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54, ToField x55, ToField x56, ToField x57, ToField x58, ToField x59)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54, toField x55, toField x56, toField x57, toField x58, toField x59]+++-- | ToRow60+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54, ToField x55, ToField x56, ToField x57, ToField x58, ToField x59, ToField x60)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54, toField x55, toField x56, toField x57, toField x58, toField x59, toField x60]+++-- | ToRow61+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54, ToField x55, ToField x56, ToField x57, ToField x58, ToField x59, ToField x60, ToField x61)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54, toField x55, toField x56, toField x57, toField x58, toField x59, toField x60, toField x61]+++-- | ToRow62+instance (ToField x1, ToField x2, ToField x3, ToField x4, ToField x5, ToField x6, ToField x7, ToField x8, ToField x9, ToField x10, ToField x11, ToField x12, ToField x13, ToField x14, ToField x15, ToField x16, ToField x17, ToField x18, ToField x19, ToField x20, ToField x21, ToField x22, ToField x23, ToField x24, ToField x25, ToField x26, ToField x27, ToField x28, ToField x29, ToField x30, ToField x31, ToField x32, ToField x33, ToField x34, ToField x35, ToField x36, ToField x37, ToField x38, ToField x39, ToField x40, ToField x41, ToField x42, ToField x43, ToField x44, ToField x45, ToField x46, ToField x47, ToField x48, ToField x49, ToField x50, ToField x51, ToField x52, ToField x53, ToField x54, ToField x55, ToField x56, ToField x57, ToField x58, ToField x59, ToField x60, ToField x61, ToField x62)+ => ToRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61, x62) where+ toRow (x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x26, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52, x53, x54, x55, x56, x57, x58, x59, x60, x61, x62)+ = [toField x1, toField x2, toField x3, toField x4, toField x5, toField x6, toField x7, toField x8, toField x9, toField x10, toField x11, toField x12, toField x13, toField x14, toField x15, toField x16, toField x17, toField x18, toField x19, toField x20, toField x21, toField x22, toField x23, toField x24, toField x25, toField x26, toField x27, toField x28, toField x29, toField x30, toField x31, toField x32, toField x33, toField x34, toField x35, toField x36, toField x37, toField x38, toField x39, toField x40, toField x41, toField x42, toField x43, toField x44, toField x45, toField x46, toField x47, toField x48, toField x49, toField x50, toField x51, toField x52, toField x53, toField x54, toField x55, toField x56, toField x57, toField x58, toField x59, toField x60, toField x61, toField x62]+