: [+|-] ( step ? -- [step+/-] ) [ + ] [ - ] ? curry [ call( x -- x' ) ] curry ; inline