Hi,

There is also this nice trick to use Debug.Trace:

merge xs ys | trace (show (xs,ys)) False = undefined -- add this as the first case to merge
mergesort xs | trace (show xs) False = undefined -- and this as the first case to mergesort

HTH,
Ozgur