1 ! Copyright (C) 2008 Doug Coleman.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: kernel math money ;
6 ! No base rate for medicare; all wages subject
7 : medicare-tax-rate ( -- x ) DECIMAL: .0145 ; inline
8 : medicare-tax ( salary w4 -- x ) drop medicare-tax-rate * ;