program StudentTask;

type
  sp = ^sl;
  sl = record
    elem: char;
    next: sp;
  end;

var
  vlan, zv: sp;
  sym: char;
  L: boolean;

begin
  vlan := nil;
  L := false;

  {ВВЕДИ СИМВОЛИ ДО КРАПКИ}
  read(sym);
  while sym <> '.' do
  begin
    new(zv);
    zv^.elem := sym;
    zv^.next := nil;

    if vlan = nil then
      vlan := zv
    else
      zv^.next := vlan;

    vlan := zv;
    read(sym);
  end;

  {ВИВЕДЕННЯ РЯДКА}
  zv := vlan;
  while zv <> nil do
  begin
    write(zv^.elem);
    zv := zv^.next;
  end;
  writeln;

  {ПЕРЕВІРКА СЬОМОЇ ЛІТЕРИ З КІНЦЯ}
  zv := vlan;
  if zv <> nil then
  begin
    while zv^.next^.next^.next^.next^.next^.next <> nil do
      zv := zv^.next;

    if (zv^.elem = 'S') or (zv^.elem = 'W') then
      L := true;
  end;

  writeln('Resultat L=', L);
end.