{
TASK:brkclk
LANG:PASCAL
}

var
        ch:char;

begin
 read(ch);
  if ch='.' then writeln(114)
            else writeln(-1)
end.

