fica-tax ( salary w4 -- x )

Vocabulary

taxes.usa.fica

Inputs

salary	an object
w4	an object

Outputs

x

an object

Definition

USING: accessors math math.order ;

IN: taxes.usa.fica

: fica-tax ( salary w4 -- x )
    year>> fica-base-rate min fica-tax-rate * ;