WITH ada.text_io;
WITH Ada.integer_text_io;
WITH multiply;
PROCEDURE testMultiply 	IS
a : integer;
b: integer;
c: integer;
d,e,f : integer;
BEGIN
  a := 5;
  Ada.integer_Text_io.put(a); 
  Ada.integer_Text_io.put( b);
  Ada.integer_Text_io.put( c);
  Ada.text_io.New_Line;  -- default parameter for spacing was 1
  multiply (number =>a, square => b, cube => c);
  Ada.integer_Text_io.put(a);
  Ada.integer_Text_io.put(b);
  Ada.integer_Text_io.put(c);
  Ada.text_io.New_Line(2); -- using 2 for spacing
  d := 24;
  Ada.integer_Text_io.put(d);
  Ada.integer_Text_io.put(e);
  Ada.integer_Text_io.put(f);
  Ada.text_io.New_Line(spacing => 3); -- using named parameter
  multiply (cube => f, number =>d, square =>e);
  Ada.integer_Text_io.put(d);
  Ada.integer_Text_io.put(e);
  Ada.integer_Text_io.put(f);
  
END testMultiply;