r:0;while 0#(x:?read(?-,?-,0))do r:r+x;print(r);