program Hello;
uses crt;
var n:string;
tong,i,b,a,m:longint;
tich:int64;
begin
readln(n);
readln(m);
tong:= 0;
tich:= 1;
for i:= 0 to m-1 do
begin
val(n[length(n) - i],a,b);
tong:= tong + a;
tich:= tich * a;
end;
writeln(tong);
writeln(tich);
readln;
end.