showHand h =
    let n = stackCount h in
    if (0 == n) then id else
    showString "hand: " . shows n . showChar '\n'
showHand h =
    let n = stackCount h in
    if (0 == n) then id else
    showString "hand: " . shows n . showChar '\n'
showHand h =
    let n = stackCount h in
    if (0 == n) then id else
    showString "hand: " . shows n . showChar '\n'