-- | print an AO standard environment, or a summary of it, for
-- the user to view.
showEnv :: V cx -> ShowS
showEnv (P s (P h (P pb (P (P (valToText -> Just sn) ns) ex)))) =
    showPower pb . showExt ex . showNamedStacks ns . showHand h .
    showString "---" . showString sn . showString "---\n" .
    showStack 12 s
showEnv :: V cx -> ShowS
showEnv (P s (P h (P pb (P (P (valToText -> Just sn) ns) ex)))) =
    showPower pb . showExt ex . showNamedStacks ns . showHand h .
    showString "---" . showString sn . showString "---\n" .
    showStack 12 s
showEnv (P s (P h (P pb (P (P (valToText -> Just sn) ns) ex)))) =
    showPower pb . showExt ex . showNamedStacks ns . showHand h .
    showString "---" . showString sn . showString "---\n" .
    showStack 12 s