procedure lmark(s)
   while line := read() do {
      write(line)
      write(repl(" ",find(s,line) - 1),"|")
      }
   return
end