sub pager is export {
  my Proc::Async $p .= new: %*ENV<PAGER> // 'less', :w;

  $p.start.then: { say "finished" };

  return $p;
}


{
  my $pager = pager;

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

  $pager.close-stdin;
}

say "done";