execute { return $1- } for { execute $1 if $right($3,2) == ++ { var %type inc } elseif $right($3,2) == -- { var %type dec } while $gettok($2,1,32) $gettok($2,2,32) $gettok($2,3,32) { %type $left($3,-2) execute $4- } }