别问我……我也不知道怎么证明

Program p2505;
var
   n:double;
begin
   while not seekeof do
   begin
      read(n);
      while n>18 do n:=n/18;
      if n<=9 then writeln('Stan wins.')
      else writeln('Ollie wins.');
   end;
end.