sub sub_iter {
  my ($s) = @_;
  return sub {$s?substr $s, 0, 1, '':undef}
}