Question: printing out once

Question:printing out once

tyelca 4 Maple
> procA :=
proc ()
print ("Hello");
2;
end proc:
> procB :=
proc ()
local i;
i := procA();
end proc:
> procA ();
"Hello"
2
> procB();
"Hello"
2

The main that I want to get is:
if it was executed procA, it should show "Hello" text and the 2 number, but if it was executed procB, it should show only the 2 number, it shouldn`t show "Hello" text.
What can I do to get this special result in procB?
Please Wait...