a,b,*c=$<.map &:to_i
p -c[0]+c[-1]