sub page {
  foreach (@_) {
    print "$_";
    $ln++;
    if ($ln+1 == $=) { print "--more--"; chop (my $i=<>); $ln = 0 }
  }
}