singletonStack :: (Ord a)=>a -> DistinctStack a
singletonStack x = ([x], S.singleton x)
singletonStack :: (Ord a)=>a -> DistinctStack a
singletonStack x = ([x], S.singleton x)
singletonStack x = ([x], S.singleton x)