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