showPower v = showString "power block: " . summarize v . showChar '\n'
showPower v = showString "power block: " . summarize v . showChar '\n'
showPower v = showString "power block: " . summarize v . showChar '\n'