showStack _ v = 
    showString "(non-standard stack): " .
    summarize v
showStack _ v = 
    showString "(non-standard stack): " .
    summarize v
showStack _ v = 
    showString "(non-standard stack): " .
    summarize v