import Data.List ( group, sort, transpose )
import GHC.Base (join)
import Control.Arrow ( Arrow((&&&)) )
import Data.Traversable (for)
import Control.Monad (replicateM, forM_)
import Data.Char ( digitToInt )
f a= map $ join.map (\x->[length x:head x] <> replicate (length x - 1) [0]).group.a
f2 x= map (length &&& head).group.sort.map (reverse.sort.init).filter ((/=0).last).join.f id $ transpose $ f (map (:[])) x
ff n = replicateM n getLine
main = do
    x <- getLine
    matr <- ff (read $ takeWhile (/=' ') x )
    forM_ (f2 $ (map.map) digitToInt matr) $ \(x, [a, b]) ->
      putStrLn $ show a ++ " " ++ show b ++ " " ++ show x