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.

cHJvZ3JhbSBTdHVkZW50VGFzazsKCnR5cGUKICBzcCA9IF5zbDsKICBzbCA9IHJlY29yZAogICAgZWxlbTogY2hhcjsKICAgIG5leHQ6IHNwOwogIGVuZDsKCnZhcgogIHZsYW4sIHp2OiBzcDsKICBzeW06IGNoYXI7CiAgTDogYm9vbGVhbjsKCmJlZ2luCiAgdmxhbiA6PSBuaWw7CiAgTCA6PSBmYWxzZTsKCiAge9CS0JLQldCU0Jgg0KHQmNCc0JLQntCb0Jgg0JTQniDQmtCg0JDQn9Ca0Jh9CiAgcmVhZChzeW0pOwogIHdoaWxlIHN5bSA8PiAnLicgZG8KICBiZWdpbgogICAgbmV3KHp2KTsKICAgIHp2Xi5lbGVtIDo9IHN5bTsKICAgIHp2Xi5uZXh0IDo9IG5pbDsKCiAgICBpZiB2bGFuID0gbmlsIHRoZW4KICAgICAgdmxhbiA6PSB6dgogICAgZWxzZQogICAgICB6dl4ubmV4dCA6PSB2bGFuOwoKICAgIHZsYW4gOj0genY7CiAgICByZWFkKHN5bSk7CiAgZW5kOwoKICB70JLQmNCS0JXQlNCV0J3QndCvINCg0K/QlNCa0JB9CiAgenYgOj0gdmxhbjsKICB3aGlsZSB6diA8PiBuaWwgZG8KICBiZWdpbgogICAgd3JpdGUoenZeLmVsZW0pOwogICAgenYgOj0genZeLm5leHQ7CiAgZW5kOwogIHdyaXRlbG47CgogIHvQn9CV0KDQldCS0IbQoNCa0JAg0KHQrNCe0JzQntCHINCb0IbQotCV0KDQmCDQlyDQmtCG0J3QptCvfQogIHp2IDo9IHZsYW47CiAgaWYgenYgPD4gbmlsIHRoZW4KICBiZWdpbgogICAgd2hpbGUgenZeLm5leHReLm5leHReLm5leHReLm5leHReLm5leHReLm5leHQgPD4gbmlsIGRvCiAgICAgIHp2IDo9IHp2Xi5uZXh0OwoKICAgIGlmICh6dl4uZWxlbSA9ICdTJykgb3IgKHp2Xi5lbGVtID0gJ1cnKSB0aGVuCiAgICAgIEwgOj0gdHJ1ZTsKICBlbmQ7CgogIHdyaXRlbG4oJ1Jlc3VsdGF0IEw9JywgTCk7CmVuZC4=

QUJDREVGU0cuCg==

ABCDEFSG.