program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

Var
  i: Integer;
  aCount: Integer;
  aBufferInt: Integer;
  aErrorCode: Integer;
  aString: String;
  aBufferString: String;
  aArray: Array Of Integer;
  aNeedConvert: Boolean;
begin
  aCount := 0;
  aBufferString := '';
  SetLength(aArray, 0);

  ReadLn(aString);
  For i := 1 To Length(aString) Do
    Begin
      aNeedConvert := FALSE;
      If aString[i] In ['0'..'9'] Then
        aBufferString += aString[i]
      Else
        aNeedConvert := TRUE;
      If i = Length(aString) Then aNeedConvert := TRUE;

      If aNeedConvert And Not(aBufferString = '') Then
          Begin
            aCount += 1;
            SetLength(aArray, aCount);
            Val(aBufferString, aBufferInt, aErrorCode);
            aArray[aCount - 1] := aBufferInt;
            aBufferString := '';
          End;
    End;

  If Not(aBufferString = '') Then
    Begin
      aCount += 1;
      SetLength(aArray, aCount);
      Val(aBufferString, aBufferInt, aErrorCode);
      aArray[aCount - 1] := aBufferInt;
    End;
  aBufferString := '';

  For i := Low(aArray) To High(aArray) Do
    WriteLn(aArray[i]);
end.