extra/taxes/usa/futa/futa.factor

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