read r
$[t=(60917{31..00}+t*22/381+(t<0?t/10-10**5:0)*t*t/239/10**11)*t/10**7-10**6+${r/.}];printf %.3f\\n $[t+2731500]e-4;. *