tertiary operators

-- tertiary operators in haskell? Am I cool or what?

infixl 7 ?
(?) :: Bool -> (a,a) -> a
(?) True (x,_) = x
(?) False (_,y) = y

infixr 8 .:
(.:) ::  a -> a -> (a,a)
(.:) x y = (x,y)

main = do
    putChar $ (4>3) ? 't' .: 'f'
    putChar $ (3>4) ? 't' .: 'f'