integer::A,B read *,A,B print '(i0)',-(0-A-B) end