m@main=do;a<-readLn;print$1e3-sum[100|a>499]+a/10;m