add some taxes stuff

diff --git a/extra/taxes/taxes.factor b/extra/taxes/taxes.factor
index 8456d95673e15e2894e2c6884d74e6982c917ff8..1f4eb556dc09ce6bf83e39ab4e152c3b9ff0893e 100644 (file)
--- a/extra/taxes/taxes.factor
+++ b/extra/taxes/taxes.factor
@@ -33,6 +33,13 @@ TUPLE: fica-base-unknown ;
 
 ! 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
+    futa-tax-rate futa-tax-offset-credit -
+    * ;
 
 ! No base rate for medicare; all wages subject
 : medicare-tax-rate ( -- x ) DECIMAL: .0145 ; inline