line-mode
","
split
length
half
dec
dec
half
{
    @3
    @2
    double
    pair
    @9
    select
    @13
    join
}
times #(eval)