m@main=do a:l<-readLn;print$last l-a;m