n = 15108097
k = n Mod 10000
'
d = Tan(1 / k) - 1 / k
'
MsgBox d