var ch:char;
var I,K:Integer;
var value:Double;
var tb:array of array of double;
begin
  SetLength(tb,4);
  for I:=0 to Length(Tb)-1 do // tu zastosuj eof(plik)
  begin
    ch:='!';
    while ch<>' ' do Read(ch);
    K:=0;
    while true do
    begin
      {$I-} Read(value); {$I+}
      if IOResult<>0 Then break;
      SetLength(Tb[I],K+1);
      Tb[I][K]:=value;
      Inc(K);
    end;
  end;
  for I:=0 to Length(Tb)-1 do
  begin
    Write(I,':',Length(Tb[I]),': ');
    for K:=0 to Length(Tb[I])-1 do Write(Tb[I][K]:9:3);
    WriteLn;
  end;
end.