extra/taxes/usa/fica/fica.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors assocs.lib math math.order money ;
   4 IN: taxes.usa.fica
   5
   6 : fica-tax-rate ( -- x ) DECIMAL: .062 ; inline
   7
   8 ERROR: fica-base-unknown year ;
   9
  10 : fica-base-rate ( year -- x )
  11     H{
  12         { 2008 102000 }
  13         { 2007  97500 }
  14     } [ fica-base-unknown ] unless-at ;
  15
  16 : fica-tax ( salary w4 -- x )
  17     year>> fica-base-rate min fica-tax-rate * ;