sub pager is export {
  shell(%*ENV<PAGER> // 'less', :in(True)).in
}

{
  my $pager = pager;

  $pager.say: 10000.rand for ^20;
  $pager.close;
}

say "done";