rm(list=ls())
INC = 31750 # gross taxable income
PEN = 0.06

SLR=max(0,INC-18924)*0.09
INC = INC*(1-0.06)

XPA = 12500
NPA = 8628

XB=0 # income tax payable (basic)
XBT=50000
NBT=50000

XH=0 # income tax payable (higher) 
XHT=150000

INC_XB=0# income tax basic rate payable
INC_XH=0# income tax higher rate payable 

NB=0  #= NIC payable (basic)
NH=0 # NIC payable (higher)

INC_NB=0 # NIC basic rate taxable
INC_NB=0 # NIC higher rate taxable

if(INC>NBT) INC_NB=(NBT-NPA) else INC_NB=max(0,INC-NPA)
if(INC>150000)  INC_NH=(INC-NBT) else INC_NH=max(0,INC_NH=(INC-NBT))

if(INC>XBT) INC_XB=(XBT-XPA) else INC_XB=max(0,INC-XPA)
if(INC>XHT) INC_XH=(XHT-XBT) else INC_XH=max(0,INC_XH=(INC-XBT))

NB = INC_NB*0.12 
NH = INC_NH*0.02

XB = INC_XB*0.2
XH = INC_XH*0.4
#print(XB)
#print(XH)

X = XB+XH+NB+NH
print('INCOME')
print(INC)
print('INCOME TAX @ 20%')
print(XB)
print('INCOME TAX @ 40%')
print(XH)
print('NIC @ 12%')
print(NB)
print('NIC @ 2%')
print(NH)
print('SLR')
print(SLR)
print(INC-X-SLR)
print((INC-X-SLR)/12)