$d=1;print/$d/?$d=$'+$`:$d,$/while<>