module Data.Composition (
(.:),
(.*),
(.**),
(.***),
(.****),
(.*****),
(.******),
(.*******),
(.********),
compose2,
compose3,
compose4,
compose5,
compose6,
compose7,
compose8,
compose9
) where
(.) :: (b -> c) -> (a -> b) -> a -> c
(f . g) x = f (g x)
(.:) :: (c -> d) -> (a -> b -> c) -> a -> b -> d
(f .: g) x y = f (g x y)
(.*) :: (c -> d) -> (a -> b -> c) -> a -> b -> d
(.*) = (.) . (.)
(.**) :: (d -> e) -> (a -> b -> c -> d) -> a -> b -> c -> e
(.**) = (.) . (.*)
(.***) = (.) . (.**)
(.****) = (.) . (.***)
(.*****) = (.) . (.****)
(.******) = (.) . (.*****)
(.*******) = (.) . (.******)
(.********) = (.) . (.*******)
compose2 :: (c -> d) -> (a -> b -> c) -> a -> b -> d
compose2 = (.*)
compose3 :: (d -> e) -> (a -> b -> c -> d) -> a -> b -> c -> e
compose3 = (.**)
compose4 = (.***)
compose5 = (.****)
compose6 = (.*****)
compose7 = (.******)
compose8 = (.*******)
compose9 = (.********)