pnTestCard :: FilePath -> IO ()
    pnTestCard file = writeGraphsToFile file $ map (dotGraphGroupNodesByLabel Nothing [] . uncurry (pnToDot Nothing))
        testPNs
pnTestCard :: FilePath -> IO ()
pnTestCard file = writeGraphsToFile file $ map (dotGraphGroupNodesByLabel Nothing [] . uncurry (pnToDot Nothing))
        testPNs
pnTestCard file = writeGraphsToFile file $ map (dotGraphGroupNodesByLabel Nothing [] . uncurry (pnToDot Nothing))
        testPNs