lines
{
    2dup
        8
        times #(list)
    t2
    zip
    flatten
    rrot
        length
        double
    t2
    dec
    biggest
    take
}
scan
unlines