sub dani_l {
  my $s = shift;

  substr($s, $_ - 1, 2) =~ tr/1// == 1 or return 0 for @_;
  return 1;
}
[download]