var s:string;
function lines(name:string):integer;
var i:integer;
c:char;
f:text;
begin
assign(f,name);
reset(f);
while not eof(f) do
begin
while not eoln() do read(f,c);
inc(i);
end;
lines:=i;
close(f);
end;
function symbols(name:string):integer;
var i:integer;
c:char;
f:text;
begin
assign(f,name);
reset(f);
while not eof(f) do
while not eoln() do
begin
read(f,c);
inc(i);
end;
symbols:=i;
close(f);
end;
begin
readln(s);
writeln('Lines: ',lines(s));
writeln('Symbols: ',symbols(s));
end.