foo :: a -> (a, a)
foo a = (a, a)