m@main=do x:y<-readLn;print$last y-x;m