var m,n,i,j,a,b,c,d:longint;
begin
  readln(n,m);
  for i:=1 to n do
   a:=a+i;
  for j:=1 to m do
   b:=b+j;
  c:=a*b;
  a:=0;b:=0;
  if m>n then
           begin
             a:=m;b:=n;
           end
    else
      begin
        a:=n;b:=m;
      end;
  for i:=0 to b do
    d:=d+((m-i)*(n-i));
  writeln(d,' ',c-d);
end.
/**************************************************************
	Problem: 1995
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/