showStack n s | (n < 1) = 
    showChar '(' .
    shows (stackCount s) .
    showString " more)\n"
showStack n s | (n < 1) = 
    showChar '(' .
    shows (stackCount s) .
    showString " more)\n"
showStack n s | (n < 1) = 
    showChar '(' .
    shows (stackCount s) .
    showString " more)\n"