line-mode
","
split
length
5
>
f:
    @2
    3
    /
    inc
    @0
    double
    pair
    @10
    select
    @14
    join