lines
{
        length
        double
    t2
    dec
    biggest
    @6
    @4
        16
        times #(list)
    t2
    zip
    flatten
    take
}
scan
unlines