showExt v = showString "extended env: " . summarize v . showChar '\n'
showExt v = showString "extended env: " . summarize v . showChar '\n'
showExt v = showString "extended env: " . summarize v . showChar '\n'