module Main
where

import Control.Arrow

f6	= (`div` 3) &&& (`mod` 3)
f7      = (* 2)     *** (+ 1)
f8      = f6 >>> f7
f9      = uncurry (+)
f10     = f6 >>> f7 >>> f9

t6	= f6  1
t8	= f8  1
t10     = f10 1

l6	= map f6  [1..10]
l8	= map f8  [1..10]
l10     = map f10 [1..10]