read-num
{
    new-line
    over
    2
    divmod
        6
        *
        4
        +
    f4
    dup
    dec
    push-a
    when
}
save-a
eval