showEnv v = 
    showString "--(non-standard environment)--\n" .
    summarize v . showChar '\n'
showEnv v = 
    showString "--(non-standard environment)--\n" .
    summarize v . showChar '\n'
showEnv v = 
    showString "--(non-standard environment)--\n" .
    summarize v . showChar '\n'