------------------------------------------------------------

consDumb :: a -> Hughes a -> Hughes a
consDumb a h = mkHughes (a : runHughes h)
consDumb :: a -> Hughes a -> Hughes a
consDumb a h = mkHughes (a : runHughes h)
consDumb a h = mkHughes (a : runHughes h)