program Writely;

{ Process events here }
procedure OnDocumentComplete(URL : string);
begin
  if IsPartOf('http://www.writely.com/?', URL) then
    begin      
      Fill('loginEmail', GetParam('writely_l'));
      Fill('password', GetParam('writely_p'));
      ClickButton('submitButton');
      NewbieScriptEnd;
    end;
end;

{ This is the main program body. }
begin
  Navigate('http://www.writely.com/?action=login');
end.