s/r ( zi -- s r )

Vocabulary

math.parser.private

Inputs

zi

an object

Outputs

s	an object
r	an object

Definition

USING: kernel math ;

IN: math.parser.private

: s/r ( zi -- s r ) [ 1000/ ] keep over 1000 * - ; inline