PROCEDURE skipredirection(VAR f : text);
  (* skip over ">name" and/or "<name" *)

    BEGIN (* skipredirection *)
    skipblanks(f);
    WHILE f^ IN ['<', '>'] DO BEGIN
      skipto(' ', f); skipblanks(f); END;
    END; (* skipredirection *)

  (* 1---------------1 *)