main :: IO ()
main =  mapM_ putStrLn
        (map (showResult expr    . exprPPIso   ) allExpTests ++
         map (showResult program . programPPIso) allProgTests)
main :: IO ()
main =  mapM_ putStrLn
        (map (showResult expr    . exprPPIso   ) allExpTests ++
         map (showResult program . programPPIso) allProgTests)
main =  mapM_ putStrLn
        (map (showResult expr    . exprPPIso   ) allExpTests ++
         map (showResult program . programPPIso) allProgTests)