extra/taxes/usa/w4/w4.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel math ;
   4 IN: taxes.usa.w4
   5
   6 ! Each employee fills out a w4
   7 TUPLE: w4 year allowances married? ;
   8 C: <w4> w4
   9
  10 : allowance ( -- x ) 3500 ; inline
  11
  12 : calculate-w4-allowances ( w4 -- x ) allowances>> allowance * ;
  13