-- * Debug functions

-- | To be used only for debugging, breaks referential integrity.
debug :: Show a => a -> a
debug x = trace (show x) x
debug :: Show a => a -> a
debug x = trace (show x) x
debug x = trace (show x) x