with bignumpkg; use bignumpkg;
with ada.text_io; use ada.text_io;
procedure bignumget is
b1, b2, b3: bignum;
begin
loop
put("Enter a big number: ");
get(b1);
exit when b1 = zero;
b2 := b1 + one;
-- b3 := b1 + 2; -- How would you do this?
put(b2);
new_line;
end loop;
end bignumget;