{-# OPTIONS_GHC -Wno-missing-export-lists #-}

module Target.Style where


(???) :: Int -> Int -> Int
??? :: Int -> Int -> Int
(???) = Int -> Int -> Int
forall a. Num a => a -> a -> a
(+)

infixl 7 ***
(***) :: Int -> Int -> Int
*** :: Int -> Int -> Int
(***) = Int -> Int -> Int
forall a. Num a => a -> a -> a
(*)

quad :: Int -> (Int, Int, Int, Int)
quad :: Int -> (Int, Int, Int, Int)
quad Int
x = (Int
x, Int
x, Int
x, Int
x)

triple :: Int -> (Int, Int, Int)
triple :: Int -> (Int, Int, Int)
triple Int
y = (Int
y, Int
y, Int
y)

data TupleRecord = TupleRecord
    { TupleRecord -> (Int, Int, Int, Int)
quadruple :: (Int, Int, Int, Int)
    }