%begin
%include "inc:util.imp"
%string(255)s
%on 9 %start; %stop; %finish
  openinput(1,"$.com"); selectinput(1)
  %cycle
    readline(s); s = s.":login.com"
    selectoutput(0); printline(s)
    openoutput(1,s); selectoutput(1)
    printline("@cs2:login")
    closeoutput
  %repeat
%end