with Text_IO, Ada.Integer_Text_IO;
use Text_IO, Ada.Integer_Text_IO;

with bank; use bank;

procedure ootest is
 
 myaccount  : account;
 youraccount : account;

begin
  makeaccount(myaccount,"Harry",100);  -- myaccount = new account("Harry",100);
  makeaccount(youraccount,"Larry",200); -- (define myaccount (makeaccount ...
  inquiry(myaccount);                  -- myaccount.inquiry();
  inquiry(youraccount);		        -- (myaccount 'inquiry)
  withdraw(myaccount,20);	       
  deposit(youraccount,30);             -- youraccount.deposit(30);
  inquiry(myaccount);                   -- ((youraccount 'deposit) 30)
  inquiry(youraccount);
end ootest;