2008-09-30 13:47:46 -04:00
|
|
|
! Copyright (C) 2008 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: accessors arrays assocs kernel math math.intervals
|
2008-09-30 14:33:32 -04:00
|
|
|
namespaces sequences money math.order ;
|
2008-09-30 13:47:46 -04:00
|
|
|
IN: taxes.usa.futa
|
|
|
|
|
|
|
|
|
|
! Employer tax only, not withheld
|
|
|
|
|
: futa-tax-rate ( -- x ) DECIMAL: .062 ; inline
|
|
|
|
|
: futa-base-rate ( -- x ) 7000 ; inline
|
|
|
|
|
: futa-tax-offset-credit ( -- x ) DECIMAL: .054 ; inline
|
|
|
|
|
|
|
|
|
|
: futa-tax ( salary w4 -- x )
|
|
|
|
|
drop futa-base-rate min
|
2009-02-09 20:18:18 -05:00
|
|
|
futa-tax-rate futa-tax-offset-credit - * ;
|
