%begin
  %integer c

  open input(2,":T")
  select input(2)
  prompt("next:"); readsymbol(c)
%end