main = do
    args <- getArgs
    mapM_ (putStrLn . showTup) (numsAndPrimePairCounts (read $ head args :: Integer))
main = do
    args <- getArgs
    mapM_ (putStrLn . showTup) (numsAndPrimePairCounts (read $ head args :: Integer))
main = do
    args <- getArgs
    mapM_ (putStrLn . showTup) (numsAndPrimePairCounts (read $ head args :: Integer))