module Debug.Trace

import IO

trace : String -> a -> a
trace x val = unsafePerformIO (do putStrLn x; return val)