module Ribosome.Host.Data.Tuple where dup :: a -> (a, a) dup :: forall a. a -> (a, a) dup a a = (a a, a a)