Add traceStack :: String -> a -> a