printTranscripts :: (GameM m g, Show (Move g)) => m ()
printTranscripts = do n <- numCompleted
                      mapM_ printTranscriptOfGame [1..n]

-- | Print summary of the last game.
printTranscripts :: (GameM m g, Show (Move g)) => m ()
printTranscripts = do n <- numCompleted
                      mapM_ printTranscriptOfGame [1..n]

-- | Print summary of the last game.
printTranscripts = do n <- numCompleted
                      mapM_ printTranscriptOfGame [1..n]

-- | Print summary of the last game.