showNamedStacks v = 
    showString "???: " . shows v . showChar '\n'
showNamedStacks v = 
    showString "???: " . shows v . showChar '\n'
showNamedStacks v = 
    showString "???: " . shows v . showChar '\n'