1 ! Copyright (C) 2008 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math math.order money ;
6 ! Employer tax only, not withheld
7 : futa-tax-rate ( -- x ) DECIMAL: .062 ; inline
8 : futa-base-rate ( -- x ) 7000 ; inline
9 : futa-tax-offset-credit ( -- x ) DECIMAL: .054 ; inline
11 : futa-tax ( salary w4 -- x )
12 drop futa-base-rate min
13 futa-tax-rate futa-tax-offset-credit - * ;