my @f;
{
  redo if $_ = shift @f || <STDIN>;
}