read-num
{
    show-line
    @0
    odd
    @0
    half
    @0
    3
    *
    inc
    pair
    get
    dup
    dec
    push-a
    when
}
save-a
eval