line-mode
s( "[-+x]+\\d*$" "" )
v( "([-+])" )
m:
    dup
    94
    member
    f:
        read-nums
        dump
        *
        show
        "x"
        @2
        dec
        dec
        f:
            @12
            @2
            show